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Viel Spaß mit dem Commodore 64 


Im Verhältnis zu seinem doch noch recht 
günstigen Anschaffungspreis bietet der 
Commodore 64 unheimlich viele Möglich- 
keiten. Besonders die professionelle Tastatur 
hebt ıhn von anderen Rechnern seiner Klasse 


ab. 


Eine interessante Zusammenstellung 


Wir haben Ihnen in diesem Buch eine Rei- 
he von Programmen zusammengestellt, mit 
denen Sıe auf diesem Rechner sicher viel Spaß 
haben werden. 





Verständliche Texte und Programme 





Besonderen Wert haben wir auf die Ver- 
ständlichkeit der Texte und Programme ge- 
legt. Die sehr ausführlichen Erklärungen sol- 
len Ihnen helfen, die Programme wirklich zu 
verstehen, um so ım Programmieren sicherer 
zu werden. 

Häufig enthalten andere Programme un- 
heimlich viele verschlüsselte Informationen, 
die dann auch im Text nıcht erklärt sind. Be- 
sonders dıe Eingabe von Maschinenprogram- 
men aus Basıc ıst sehr beliebt und nach un- 
serer Meinung — wenig schön. Wir haben dar- 
auf völlig verzichtet. 


Spaß gehört immer dazu 


Programme sollen verständlich und über- 
sichtlich sein, und es soll Spaß machen, sie zu 
benutzen. Das waren unsere Kriterien beim 
Zusammenstellen dieses Buches. 
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Viel Spaß mit dem Commodore 64 





Wir haben uns darüber hınaus bemüht, in 
jedem Programm eıne Programmierstrategie 
oder einige Sprachelemente besonders zu 
verdeutlichen. Davon können Sie profitieren. 


Mit dem Grundgerät getestet 


Ein Wort noch zur von uns benutzten 
Hardware. Alle Programme sind auf dem 
Grundgerät getestet. Es sind keinerlei Erwei- 
terungen oder zusätzliche Geräte notwendig. 
Denn mit der Grundversion kann man schon 
unheimlich viel machen. 

Legen Sie nun also los. Ihr Computer war- 
tet schon ungeduldig auf die neuen Program- 
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Unterhaltungsprogramm mit Gewinn 


Dieses Programm erlaubt es Ihnen, mit 
dem Computer ein persönliches Gespräch 
über Ihre Daten zu führen. Das Gespräch ıst 
recht kurz, aber esliegtan Ihnen, es zu verlän- 
gern. 


Unterhaltungsprogramm mit Gewinn 


Das wichtigste Element eines solchen Un- 
terhaltungsprogramms ist die Analyse der 
möglichen Antworten. 
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Unterhaltungsprogramm mit Gewinn 


Bevor wir in die Beschreibung des Pro- 
gramms einsteigen, wollen wir Ihnen einen 
Vorschlag machen. Solche Programme kann 
man beinahe endlos lang machen. Dazu 
braucht man nur gute Ideen. 





» mit Prämie 


„Bauen“ Sıe eine Verlängerung für das Pro- 
gramm und schicken es uns unter dem Stich- 
wort „Unterhaltungsprogramm“. Die besten 
Lösungen werden prämiert und falls wır Ihr 
Programm veröffentlichen, erhalten Sie zu- 
sätzlich ein Honorar. 

Vergessen Sie auch Ihren Namen und Ihre 
Anschrift nicht, sonst wissen wir gar nicht, 
wohin wir den Preis schicken sollen. 


Nur wenig ausgewertet 


Nun zum Programm: Am Anfang tragt Sıe 
der Computer einfach nur, ob Sie sich mıtihm 
unterhalten wollen. Ausgewertet wird nur, 


ob die Antwort „NEIN“ ıst. 


Machen Sie es besser und schöner 


Da bieten sich natürlich noch viele andere 
Möglichkeiten. Lassen Sie den Computer auf 
unterschiedliche Antworten ganz unter- 
schiedlich reagieren, und denken Sie sich eine 
schöne Variante für die Möglichkeit aus, daß 
jemand eine Antwort gibt, die Sie nicht vor- 
hergesehen haben. Im zweiten Teil des Pro- 
gramms werden Ihre persönlichen Daten ab- 
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Unterhaltungsprogramm mit Gewinn 


gefragt. Die Eingaben werden jeweils bei den 
nächsten Fragen verwendet. 


Der Computer analysiert Ihr Alter 


Ausführlich wird im dritten Teil das Alter 
ausgewertet. Da bekommen Sie schon ganz 
individuelle Kommentare. 

Natürlich kann dieses kurze Programm 
nur ein Beispiel und Anregung sein. Lassen 
Sie Ihre Phantasie spielen und gewinnen Sie 
einen der attraktiven Preise. 
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Unterhaltungsprogramm mit Gewinn 


KREESEENG 











110 REM 

120 REM * Nußknacker Programm Personendaten (44) x 
130 REM * x 
140 REM * 1. Teil - Basisdaten - Initialisierung x 
150 REM IKK KK KK KK KK IT KT IK KK KK KK KK KK KK KK KK AK KK KK KK KK KK KK X 


160 PRINT "HALLO, HIER IST DAS" 

170 PRINT "NUSSKNACKER PROGRAMM" 
180 PRINT "FUER EIN PERSOENLICHES" 
190 PRINT "GESPRAECH UEBER IHRE" 
200 PRINT 

210 PRINT "txt DATEN *Xkxx" 

220 PRINT 

230 PRINT "WOLLEN SIE SICH MIT MIR" 
2&0 PRINT "UNTERHALTEN (JA/NEIN)?" 
250 INPUT AS 

260 IF AS$S="NEIN" THEN GOTO 520 

270 REM KrruR KKKKK KE K X 


280 REM * 2. Teil - Abfrage x 
2930 REM KK KK KT KK KT KK KK KK KT KT KK KT KK KK KK KK KK I KK KK KK I KK X 
300 DIM P$(3) 

310 PRINT "WIE IST IHR NACHNAME ?" 

320 INPUT PS(1) 

330 PRINT P$(1) 

340 PRINT "EIN NETTER NAME" 

350 PRINT "UND WIE IST IHR VORNAME ? 

360 INPUT P$(2) 





370 PRINT "HALLO, ";P$S(2);" ";P$(1) 
380 PRINT "IN WELCHEM JAHR SIND SIE GEBOREN ?" 
390 INPUT P 


400 LET X=:1984-P 
K1IO REM KR EEK KT KK 


420 REM *% 3. Teil - Auswertung 

430 REM KKKKKKKKTKIKTK KT TH KK KK TE KK KK KK KK KK KK KK KK KK KK KK NK 
440 IF X<1 OR X>100 THEN PRINT "LUEGNER" 

«50 IF X>0 AND X<6 THEN PRINT "HALLO, BABY" 

460 IF X>5 AND X<17 THEN PRINT P;" - WIRKLICH SCHOENES ALTER" 
470 IF X=17 THEN PRINT "MIT 17 HAT MAN NOCH TRAEUME ..." 

480 IF X>17 AND X<25 THEN PRINT "DIE ERSTE LIEBE SCHON VORBEI" 
4930 IF X>2& AND X<55 THEN PRINT "IMMEN SCHOEN ARBEITEN" 

500 IF X>55 AND X<75 THEN PRINT "ES LEBE DIE RENTE" 

510 IF X>74 THEN PRINT "ALLE ACHTUNG" 

520 PRINT 


530 PRINT "AUF WIEDERSEHEN 
5LO REM KK KK KK KK 
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Aktuelle Umrechnungstabelle 


Vielleicht haben Sie auch schon öfter das 
Problem gehabt, daß Sie in der Bank zwar 
Geld tauschen konnten, die Umrechnungsta- 
belle aber auf einem so alten Kurs basierte, 
daß sie unbrauchbar war. 


Aktuelle Umrechnungstabelle 


Mit diesem Programm können Sie sıch mit 
dem ganz aktuellen Kurs Ihre eigene Umrech- 
nungstabelle für Ihren Urlaub ausrechnen las- 





Aktuelle Umrechnungstabelle 


Das Programm ist so aufgebaut, daß es eine 
zweiteilige Tabelle ausgibt. Im ersten Teil der 
Tabelle ıst die Basıs die eigene Währung, also 
die DM. 

In diesem Teil der Tabelle können Sie nach- 
sehen, wieviel Sie von der ausländischen 
Währung für Ihr Geld bekommen. 

Der zweite Teil der Tabelle ist genau umge- 
kehrt. Wenn Ihnen unterwegs irgendwo im 
Laden ein „besonderes Angebot“ ın’s Auge 
fällt, oder wenn der Hotelportier Ihnen den 
Zimmerpreis nennt, können Sie in diesem Teil 
der Tabelle ganz schnell feststellen, wieviel 
DM Sıe auf den Tisch legen müßten. 





TOSSENKSELDIGIE 


Wir haben in diesem Programm eine ziem- 
lich ausführliche Tabelle vorgeschlagen. Jeder 
Teil der Tabelle hat 100 Positionen. 

Sıe können ablesen, wieviel von der aus- 
ländischen Währung Sie für eine DM bekom- 
men. Sıe können aber auch ablesen, was 100 
DM in der ausländischen Währung wert sind. 
Und dazwischen ist jede volle DM aufge- 


führt. 
Wie teuer ist das in DM? 


Genauso ist es umgekehrt ım zweiten Teil 
der Tabelle. Dort können Sıe die zugehörigen 
DM-Werte von einer bis zu 100 a der 
fremden Währung ablesen. 

Das mögen Ihnen zu viele Zahlen seın, 
oder Sie möchten ın Ihrer Tabelle gern höhere 
Werte sehen. Wir erklären Ihnen gleich, wo 
Sıe ım Programm Änderungen vornehmen 
müssen. 
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Aktuelle Umrechnungstabelle 





Nach der Begrüßung fragt das Programm 
ım zweiten Teil zuerst nach Ihrem Reiseziel. 
Ihre Eingabe wird eingelesen und als Zei- 
chenfolge unter L$ (wie Land) gespeichert. 
Daraus entsteht später die Überschrift für Ih- 
re Tabelle. 





wollen Sie rechnen? 





In welcher Währung 


Natürlich muß über der Tabelle auch der 
Name der Währung stehen. Die fragt das Pro- 
gramm anschließend ab und speichert Ihre 
Eingabe unter W$ (wie Währung). 

Dann fehlt für die Berechnung nur noch 
der aktuelle Kurs. Den erfahren Sie bei der 
Bank oder aus der Zeitung. Gespeichert wird 
der Kurs unter K (wie Kurs). Natürlich hat das 
K kein Dollarzeichen. Hier wird ja eine Zahl 
gespeichert. Im Gegensatz dazu waren die er- 
sten beiden Eingaben Zeichenfolgen (ge- 
kennzeichnet durch $). 





Land, Kurs, Währung und Tabelle 


Jetzt berechnet der Computer den ersten 
Teil der Tabelle und gibt die Werte gleich aus, 
nachdem er die Überschrift mit dem Land 
(L$), dem Kurs (K) und der Währung (W$) 
ausgegeben hat. 

Beachten Sie in Zeile 400 das Komma zwi- 
schen der Zeichenfolge „DM“ und der Varia- 
blen für die Währung W$. Damit sorgt der 
Computer automatisch für Platz zwischen 
den beiden Texten. 

In Zeile 420 beginnt dann die Schleife für 
die Berechnung und Ausgabe der Fremd wäh- 
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Aktuelle Umrechnungstabelle 





rung im Verhältnis zu glatten DM-Beträgen 
zwischen 1 und 100. An dieser Stelle können 
Sie auch Art und Umfang der Tabelle verän- 


dern. 


Ändern Sie die Tabelle nach Bedarf 


Der linke Wert vor dem TO gibt den An- 
fangswert der Tabelle an. Er ist in unserem 
Beispiel auf 1 gesetzt. Setzen Sie ıhn beliebig 
höher, wenn Sie eher an großen Beträgen in- 
teressiert sind. Rechts von TO steht der höch- 
ste DM-Betrag der Tabelle. Auch den können 
Sıe nach oben oder nach unten verändern. 

Falls Ihnen der Abstand zwischen den ein- 
zelnen Werten in der Tabelle nicht gefällt, 
können Sie mitSTEP und einem angehängten 
Zahlenwert auch noch die Schrittweite verän- 
dern. Vielleicht interessiert Sie nur, was alle 
Vielfachen von fünf DM wert sind, vielleicht 
geben Sıe sich mıt einzelnen Markstücken gar 
nıcht ab. 


BEREIT BEN KT 


Die eigentliche Berechnung ist sehr ein- 
fach: Der DM-Betrag wird einfach durch den 
Kurs geteilt. 

Die zweite Schleife, die bei 520 beginnt, 
funktioniert ganz ähnlich. Nur entspricht die 
Laufvariable I hier einer Einheit der Fremd- 
währung, nicht einer DM wie ın der ersten 
Schleife. 

Entsprechend können Sie hıer die Gestalt 
der Tabelle durch Veränderung von Anfangs- 
und Endwert sowie durch Angabe der 
Schrittweite mit STEP verändern. 
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Aktuelle Umrechnungstabelle 


Bei der japanischen Einheit Yen ist es bei- 
spielsweise ziemlich uninteressant, wieviel 
ein Yen wert ist. Interessanter sind schon 100 
Yen, und 100 wäre auch die richtige Schritt- 
weite. 


Wir wünschen gute Reise 


Die Berechnung in Zeile 530 läuft natürlich 
auch umgekehrt zu der ın Zeile 430. Jetzt ıst 
Mulitplikation gefragt. 

Sıe sehen, mıt diesem Programm können 
Sie noch eine ganze Menge mehr machen, als 
es auf den ersten Blick scheint. Wir wünschen 
Ihnen viel Spaß beim Programmieren und 
Rechnen und natürlich eine gute Reise. 
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Aktuelle Umrechnungstabelle 








110 REM Kr RR 


RETTET ERITREA. 


120 REM * Nußknacker Programm Währungstabelle (413) * 
130 REM * x 
140 REM * 1. Teil z Begrüßung x 





150 REM PER EEE RE RE 5 5 EEE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2.2. 


160 PRINT "HALLO, HIER IST EIN" 

170 PRINT "NUSSKNACKER PROGRAMM 

180 PRINT 

190 PRINT "ES DRUCKT IHNEN EINE TABELLE" 
200 PRINT "FUER IHRE URLAUBSWAEHRUNG" 


210 PRINT 
220 REM Per ER EEE EEE RE 5 5 5 5 5 2 2 2 2 5 2 5 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 
230 REM * 2. Teil - Eingabe der Basisdaten x 


240 REM PETE EEE EEE EEE ES 5 5 EEE 5 2 5 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 


250 PRINT "IN WELCHES LAND REISEN SIE?" 
260 INPUT L$ 

270 PRINT "WIE HEISST DIE URLAUBSWAEHRUNG?" 
280 INPUT W$ 

290 PRINT "WIE IST DER KURS?" 

300 PRINT "EIN ";W$;" IST WIEVIEL DM?" 
310 INPUT K 

340 REM PERS ERERS RESELLER REEL EL EL 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2. Z 
342 OPEN 1,4 

350 PRINT#1,"UMRECHNUNGSTABELLE FUER ";L$ 
360 PRINTHI,"TEIL 1" 

370 PRINTSI, 

380 LPRINT "KURS: ";K 

390 PRINT$1, 

400 PRINTS1,"DM" ‚WS 

410 PRINTS1, 

420 FOR I = 1 TO 100 

430 PRINTS1,1,1/K 

440 NEXT I 

450 PRINT$I, 

460 PRINTHI,"TEIL 2 

470 PRINTEI, 

480 PRINT#SI,"KURS: ";K 

4930 PRINTE#I, 

500 PRINT#1,W$,"DM' 

510 PRINT#1, 

520 FOR I = 1 TO 100 

530 PRINT$1,1,I*K 

540 NEXT I 


545 CLOSE 1 
550 REM KR ROOKIE K 


EEE 
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Eın Brief für viele Leute 


Mit diesem Programm können Sie einen Brief 
eingeben und ihn anschließend an viele Leute 
verschicken, ohne ihn jedesmal neu abzutip- 
pen. Sie ergänzen einfach die Adresse. 


Ein Brief für viele Leute 


Damit wird Ihr Heimcomputer beinahe zu 
einem richtigen Textsystem. Dieses Pro- 
gramm können Sie um viele Feinheiten ergän- 
zen. 


\s 


\ 
Re 
DE 


R 

RR 
we 

an 


/ 





Vorgesehen ist in Ihrem Programm Platz 
für einen Brief von maxımal 30 Zeilen. Den 
Platz im Speicher reserviert die Anweisung 
260. Der Text ist unter B$ (Brief) gespeichert. 

Zusätzlich wird in der Anweisung 250 
Platz für die Anschrift reserviert. Die An- 
schrift (A$) können Sie später immer wieder 
ändern, ohne den eigentlichen Text des Brie- 
fes zu ändern. Sie a so den gleichen 
Brief an viele verschiedene Anschriften sen- 
den. Serienbrief nennt man so was. 


Geben Sie den Brieftext ein 


In Zeile 460 beginnt dann die Eingabe- 
schleife für den Brieftext. Falls Sie längere 
Briefe schreiben wollen — vorausgesetzt Ihr 
Computer verfügt über ausreichenden Spei- 
cherraum — können Sıe den Wert hinter TO 
höher setzen. Sie müssen dann allerdings auch 
die 30 ın der DIM-Anweisung 260 höher set- 
zen. 





Zeilenlänge überprüfen 


Eine Zeile wird vorläufig unter dem Na- 
men Z$ (Zeile) untergebracht, dıe das Pro- 
gramm in Zeile 480 von der Tastatur anfor- 
dert. 

Mehr als 60 Zeichen gehören nicht in eine 
Briefzeile. Das kontrolliert das Programm ın 
Zeile 500 und erteilt Ihnen ın Zeile 550 einen 
Verweis, falls Sie eine längere Zeile eingege- 
ben haben. Wenn Sie anderer Meinung sind, 
müssen Sıe die 60 ın Zeile 500 entsprechend 
verändern. 

Leerzeilen sind selbstverständlich erlaubt, 
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Eın Brief für viele Leute 


und entsprechend fragt das Programm auch 
keine untere Grenze der Länge der Zeile 
(LEN) ab. 

Ist Ihre Zeile dann für gut befunden, wird 
sie endgültig unter B$ abgespeichert (Zeile 
510). 


30 Zeilen oder Stern 


Wenn Ihr Text genau 30 Zeilen hat, kom- 
men Sıe von 530 automatisch ın Zeile 612. Sie 
können aber auch weniger Zeilen schreiben 
und teilen dem Computer durch eine Zeile, 
die nur einen Stern enthält, mit, daß Sie genug 
geschrieben haben. Sie landen dann von Zeile 
490 ebenfalls in 612. Der Stern wird natürlich 
nıcht gespeichert. 


Die Anschrift nicht vergessen 


Sıe können dann in der Schleife ab Zeile 
664 die erste Anschrift angeben, an die der 
Brief geschickt werden soll. Vorgesehen sind 
maxımal sechs Zeilen. 

Wollen Sıe längere Anschriften, ändern Sie 
die 6 in Zeile 664 entsprechend. Sie müssen 
dann aber auch ın Anweisung 250 mehr Spei- 
cher reservieren. 

Natürlich gibt die 6 als obere Schleifenbe- 
grenzung ın 664 nur eınen Maxımalwert an. 
Genau wıe beim Brieftext können Sıe die Ein- 
gabe durch ein Sternchen für beendet erklä- 
ren. Das Programm springt dann ın Zeile 706. 

Die maximal vorgesehene Länge für eine 
Adreßßzeile ist 40. Geprüft wird das ın Zeile 
674. Längere Zeilen akzeptiert das System 
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Ein Brief für viele Leute 








nur, wenn Sıe hier statt der 40 einen höheren 
Wert einsetzen. 

Leerzeilen sind natürlich auch im Adreß- 
teil erlaubt. Fine gehört ja mindestens zwi- 
schen Straße und Ort. 

Wenn die sechs Zeilen komplett sind, 
springt das Programm aus Zeile 682 ın Zeile 
706. Hier landen Sie in jedem Fall, egal ob Sıe 
sechs Zeilen eintippen oder früher mit einem 
Sternchen die Eingabe beenden. 


Nun auf’s Papier mit dem Brief 





Da beginnt dann auch das Drucken des 
Briefes. Zuerst kommt ab Zeile 724 die An- 
schrift an die Reihe. Hier taucht wieder die 6 
auf für die sechs möglichen Zeilen. 

Wenn Sie mehrere Adressen hintereinan- 
der angeben und die Eingabe mit Stern been- 
den, kann es Ihnen passieren, daß unter A$ 
noch ein Rest der vorigen Adresse gespeichert 
ist. Sie sollten daher immer komplette sechs 
Zeilen eingeben. Ist die Adresse kürzer, geben 
Sıe einfach Leerzeilen ein. 


Restzeilen unterdrücken 


Um dies zu vermeiden, können Sıe aber 
auch in Zeile 672 zu einer Anweisungstolge 
springen, die die restlichen Zeilen nach Anga- 
be eines Sternchens löscht. Eine solche An- 
weisungsfolge müßte logisch nach der Zeile 
694 stehen. 

In der jetzigen Programmversion folgen 
auf das Drucken der Anschrift einige Leerzeı- 
len und dann in der Schleife ab Zeile 754 der 
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Ein Brief für viele Leute 


eigentliche Text. Ausgedruckt werden immer 
30 Zeilen. Haben Sie die Eingabe bereits frü- 
her durch Sternchen abgebrochen, druckt das 
Programm Leerzeilen. 

Das können Sie vermeiden, indem Sie eine 
Zeile 677 mit der Anweisung LETX =ein- 
fügen. Sie merken sich dann unter X die Zahl 
der eingetippten Zeilen. 


en Leerzeilen 





Obere Schleifenbegrenzung geg 





Dieses X verwenden Sie dann als obere 
Schleifenbegrenzung in 754. Sie ersetzen also 
die 30 durch X. 

Ahnlich können Sie übrigens auch das Pro- 
blem mit kürzeren Anschriften lösen, wenn 
Ihnen die vorhin beschriebene Möglichkeit 
zu umständlich erscheint. Natürlich müssen 
Sıe dafür eine andere Variable verwenden. 

Wenn das Programm in Zeile 772 ange- 
kommen ist und Sie fragt, ob Sie den Brief 
noch an weitere a schicken wollen, 
ist der Brief komplett. 

Geben Sıe ın der INPUT-Anweisung Y$ 
den Wert ”JA”, können Sie eine weitere An- 
schrift eingeben und das Drucken beginnt 
von vorn. Bei allen von ”JA” verschiedenen 
Eingaben verabschiedet sich das Programm. 

Sollten Sie übrigens einmal versehentlich 
am Programmende landen, können Sie das 
Programm durch Eingabe von GOTO 612 
ohne Zeilennummer davor fortsetzen und ei- 
ne neue Anschrift eingeben. 
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Ein Brief für viele Leute 














100 REM KKEKKKKKKKKK KK CK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KT KK IK KK KK KK KK KK KK KK KK KK KK KK KK X 
110 REM * Nußknacker Programm Brief (49) x 
120 REM * x 
130 REM * 1. Teil - Initialisierung x 
140 REM KAEKKKKKKKK KK CK CK CK CK KK KK KK KK KK KT NK KK KK KK KK TE KK KK KK KK KK KK KK KK KK KK KK IK KK IK I I NK X 
150 PRINT "HALLO, HIER IST DAS" 

160 PRINT "NUSSKNACKER PROGRAMM" 

170 PRINT "MIT DEM SIE IHRE" 

180 PRINT "PERSOENLICHEN BRIEFE" 

190 PRINT "SCHREIBEN KOENNEN" 

200 PRINT 

210 REM KEKKKKKKKKKKK KK KK KK IKK IK KK IK KK KK KK KK KK KK KK KK KK KK KK KK KK KT IK KK KK N NK 
220 REM * Platz für die Anschrift (A$) x 
230 REM * Platz für den Text (B$) * 
240 REM KKEKKKKKKEKKK KK KT TK TK KK KK KK KK KT TE KK KK KK KK KK KK IK KK KK N IK KK KK IK KK KK KK KK KK I KK KK 
250 DIM AS(6) 

260 DIM B$(30) 

270 REM KKKRKKKKKKKKKK KK KK KK KK KK KK KT KK KK TE TK K TK KK TK TK K TK K TK K K TK K K K K K K X 
280 REM * 2. Teil + Eingabe des Textes x 
290 REM KIEKKKKKKKKKKKKTK KT KK KK KK KK KT IK KT IK KT TI T K KK KK IK KT KT IT IK KK KK I N 
300 PRINT "SIE KOENNEN JETZT" 

310 PRINT "DEN TEXT EINGEBEN" 

320 PRINT 

330 PRINT "ER KANN MAXIMAL” 

340 PRINT "30 ZEILEN LANG SEIN" 

350 PRINT 

360 PRINT "IN JEDE ZEILE PASSEN" 

370 PRINT "MAXIMAL 60 BUCHSTABEN" 

380 PRINT 

390 PRINT "WENN DER TEXT ZU ENDE IST" 

400 PRINT "GEBEN SIE EINFACH *% EIN" 

410 PRINT 

420 PRINT "LOS GEHT ES" 

430 REM KAKKKKKKKKKKKTK KK KK KK KK KK KK KK KK IK KT KK KK TI KK KT KK IK IK KK KT IK KK KK KK KK N NK 
440 REM * Hier beginnt die Schleife x 
450 REM KEKKKKKKKKKK KK KK KK KT KK KK KK KK KK KK KK KK KK KK TE TE KK KK KK KK KK KK KK KK KK KK NK I X 
460 FOR I = 1 TO 30 

470 PRINT 

480 INPUT Z$ 

490 IF 2$="*" THEN GOTO 612 

Fortsetzung auf der nächsten Seite -------------------------- > 
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Ein Brief für viele Leute 





f 500 





IF LEN(Z$) > 60 THEN GOTO 540 


510 LET B$(1)=2$ 

520 NEXT I 

530 GOTO 612 

540 PRINT 

550 PRINT "ZEILE ZU LANG” 

560 PRINT 

570 PRINT "NEU EINGEBEN" 

580 GOTO 470 

602 REM KRKRRKRKKKKKRK KR KK RK KK KK KT TR KK KT TI N X 
604 REM *% Der Text ist komplett x 
606 REM * 3. Teil - Eingabe der Adresse « 
608 REM KK RR RR KK KR KERK KK KR KR KK KK KR KK KK KT CK KK KT KK KT N KK KK KK I I I I 
612 PRINT 

614 PRINT "SIE KOENNEN JETZT" 

616 PRINT "EINE ADRESSE EINGEBEN” 

618 PRINT 

622 PRINT "SIE KANN MAXIMAL” 

624 PRINT "6 ZEILEN LANG SEIN" 

626 PRINT 

627 PRINT "IN JEDE ZEILE PASSEN” 

632 PRINT "MAXIMAL 40 BUCHSTABEN” 

634 PRINT 

636 PRINT "WENN DIE ADRESSE ZU ENDE IST" 

638 PRINT "GEBEN SIE EINFACH * EIN" 

642 PRINT 

644 PRINT "LOS GEHT ES” 

646 REM KRKRKRKKKKKKKK KK TR TITTEN IKT KT IT IK TE TI I IK IK TE TI TI IN TI TI TI TI N IT IK IK KK U N 
648 REM * Hier beginnt die Schleife x 
652 REM KRARRKRKRKKKKRKRKR RK KK KK KT TI KK TR CK CK KK KK KK KK KK KT N IK KK KK KK KK KK KT I I N 
664 FOR I = 1 T06 

666 PRINT 

668 INPUT 2ZS 

672 IF 2$="*" THEN GOTO 706 

674 IF LEN(Z$) > 40 THEN GOTO 684 

676 LET AS(1)=2$ 

678 NEXT IL 

682 GOTO 706 

684 PRINT 

686 PRINT "ZEILE ZU LANG” 

Fortsetzung auf der nächsten Seite ------------------- 2. ----- > 
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Ein Brief für viele Leute 





688 
692 
694 
696 
698 
702 
704 
706 
708 
712 
71% 
716 
718 
722 
724 
726 
728 
732 
734 
736 
738 
742 
Th 
745 
746 
748 
752 
754 
756 
758 
762 
764 
766 
768 
769 
172 
TT% 
776 
778 
782 
784 
786 
788 
7932 
794 


PRINT N 





PRINT "NEU EINGEBEN" 

GOTO 666 

REM KKKKKKKKKKKKK KT KK KK KK KK KK KK KK KK KT IK KK KK KK KK KK IK KK KK IK KK KK I KK KK KK KK AK 
REM % Die Adresse ist komplett x 
REM % &,. Teil - Drucken des Briefes x 


REM KRKKKKKKK KK KICK KK KK KK KK KK KK KK KK KK KK KK KK KK IK NK KK KK KK IK KK AK KK AK NK I KK KK KK KK N © 


OPEN 1,4% 

PRINT "BRIEF UND ADRESSE SIND KOMPLETT" 

PRINT "JETZT WIRD GEDRUCKT" 

PRINT 

REM KR KK KK KK KK KK KK KK KK € 


REM * zuerst die adresse x 
REM KKKKKKKKKKKKKKK KK KK KK KK KK IK KT IK TI IK IK KK KK KK KK KK KK KK NK IK KK KK KK KK KK KK KK KK KK N N 
FOR I :1T06 

PRINT#1,A$(1) 





NEXT I 

REM KKKKKKKKKKKKKKKK KK KK KK KK KK KT IK KK KK KT IK KK IK KK N KK AK KK IK KK KK KK KK KK KK I I KK 
REM * dann die Leerzeilen x 
REM KKKKKKKKKKKKK KIT KT KK KK KK KK KK KK KK IK KK KK KK TI I IK KK KK KK KK KK I KK IK KK I KK NK 
PRINTS1, 

PRINT$1, 

PRINT$1, 

PRINT$1, 

REM KAKKKKLKKKKKKKKTK KK IKK KK KK TE TI KK KK KK IK KK IK KK KK KK KK I KK KK IK KK AK KK KK KK I 9 
REM * und schließlich der Text x 


REM KKAKK KK KK I KK I KK N IT I I TI I N I A KK I I KK KK I 


FOR I= 1 TO 30 
PRINT$1,B$(1) 


NEXT I 

REM KRANKER KK KK N 
REM * Der Brief ist fertig gedruckt « 
REM % Neue Adresse ? « 
REM KKEKKKKKKAKKKKK KK KK KK IK KK IK KK KK KK TE TI KK IK KK KT KK KK N I I I I I KK I I I ° K ı a 
CLOSE 1 

PRINT "DER BRIEF IST FERTIG" 

PRINT 

PRINT "SOLL ER NOCH AN EINE ADRESSE (JA/NEIN)?" 

INPUT Y$ 

IF Y$="JA" THEN GOTO 612 

PRINT 


PRINT "DAS BRIEFPROGRAMM VERABSCHIEDET SICH" 
REM KR KK KK KK KK KK IK KK I X 





REM * Programmende x 
REM KKRKKKKKKKKKKK KK KT TE KT KK KK CK I I KK I KK KK I KK I I KK KK KK IK KK I KK X 


EEE EEEEUNEEREREEREEERS® 
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Machen Sie’s geheimnisvoll 


Geheimnisse gab es schon ımmer, und mit 
diesem Programm geben wir Ihnen eine 
Möglichkeit, Sie zu wahren. Siekönnen damit 
Texte verschlüsseln. 


Machen Sie’s geheimnisvoll 
Abhängig ist die Kodierung von einer per- 
sönlichen Geheimzahl. Die müssen Sie beim 
Verschlüsseln eingeben und beim Entschlüs- 
seln kennen. 


SUR 
E: AN, 
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Machen Sie’s geheimnisvoll 


Im Speicher müssen Sie Platz für den zu 
verschlüsselnden Text (T$) und die Länge der 
einzelnen Zeilen reservieren (A). 

Zuerst geben Sie ın der Schleife ab 460 den 
Text eın. Er wird unter Z$ zwischengespei- 
chert. Wenn Sie keine 30 Zeilen eingeben wol- 
len, können Sie die Eingabe des Textes mit * 
abbrechen. Der Stern wırd natürlich nicht ge- 
speichert. 





Die Länge der Zeile ist wichtig 


Unter X merken Sie sich die Anzahl der 
eingegebenen Zeilen. Das ist später für die 
Auswertung wichtig. 

Das Programm akzeptiert maximal 60 Zei- 
chen pro Zeile. Die Oberprufuns erfolgt in 
500. Ist die Zeile länger, wird Sie abgelehnt 
und erneute Eingabe angefordert (540—580). 

Sind 30 Zeilen eingegeben oder die Finga- 
be mit * abgeschlossen, fordert das Pro- 
gramm ab Zr 612 Ihre persönliche Geheim- 
zahl an, die zwischen 2 und 999 liegen sollte. 


Die Geheimzahl muß stimmen 


Das Programm prüft Ihre in 668 gemachte 
Eingabe auf Einhaltung dieses Bereiches. 
Wollen Sie einen anderen Bereich für Ihre Ge- 
heimzahl wählen, müssen Sie die Zahlen in 
der IF- Abfrage (Zeile 670) ändern. 

Zahlen außerhalb des dort vorgegebenen 
Bereiches akzeptiert das Programm nicht. 
Die Geheimzahl wird unter G gespeichert. 

Ab Zeile 724 beginnt dann dıe eigentliche 
Kodierung. Die Schleife läuft über alle Zeilen. 
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Machen Sie’s geheimnisvoll 


Wieviele Zeilen es sind, haben wır unsjaın X 
gemerkt. 


Verschlüsseln der Zeilenlänge 


Zuerst wird die Länge der Zeile durch Ad- 
dition der Geheimzahl verschlüsselt und aus- 
gegeben. Die Länge jeder Zeile steht ja ım 
Feld A. Der Index (I) entspricht der Nummer 
der Zeile. 

In der Schleife ab 738 findet die Verschlüs- 
selung des eigentlichen Textes statt. Die 
Schleife ist eine Unterschleife zu der aus Zeile 
724. 








Ineinander geschachtelte Schleifen 


Während die erste Schleife über alle Zeilen 
läuft, wird die zweite in jeder Zeile so oft 
durchlaufen, wie Buchstaben in der Zeile 
sind. 

Dann wird die durch den Computer vor- 
gegebene Kodierung der einzelnen Zeichen 
abgefragt und in R gespeichert. Dafür gibt es 
eine Standardfunktion (Zeile 744). 

Zu dem so erhaltenen Wert addieren wır 
wieder die Geheimzahl und geben das Ergeb- 
nıs aus. 

Durch die Ineinanderschachtelung der bei- 
den Schleifen haben wir später für jede Zeile 
die kodierte Angabe Ihrer Länge und den Ko- 
de jedes Zeichens. 
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Machen Sie’s geheimnisvoll 





100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
230 
235 
240 
250 
260 
270 
280 
290 
300 
310 
330 
3&0 


a 


REM KARKRKRRKRRKRKKKEK KR RK KT KT KR KK KT TI IN IT KT KT IR KK KT N KK TR KK KK I N 


REM * Nußknacker Programm Kodierung (411) x 
REM * « 
REM * 1. Teil - Begrüßung - Speicher x 


REM KRRRRRRRKKKRKKK KK KK TITTEN KT KT KT KT TI TR KK KK KK TE KK KK KK KK I I X 


PRINT "HALLO, HIER IST DAS” 

PRINT "NUSSKNACKER PROGRAMM” 

PRINT "MIT DEM SIE TEXTE” 

PRINT "xxx VERSCHLUESSELN ner” 





PRINT "KOENNEN" 

PRINT 

REM KRRRKKKRRKRRRKKE KT TE TKTTK TK TK TI T T TK TK T T TN II TK T IT T T TI TN TI TK T T TK TK T TI T TI TN I I X& 
REM * Platz für den Text (T$) x 
REM * Zeilenlänge (A) x 
Id. me 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2; 
DIM A(30) 


DIM T$(30,60) 
REM KRRRRERRRRERKER KK KR EKERKKKKKRRK KK RK N 


REM * 2. Teil - Eingabe des Textes x 
REM XRRRRRRREKRRKRRKR KR KE KK RK KK KK KT TR KT KK KK KT IKK KK KK KK TR I I NK 
PRINT "SIE KOENNEN JETZT" 

PRINT "DEN TEXT EINGEBEN." 

PRINT "ER KANN MAXIMAL” 

PRINT "30 ZEILEN LANG SEIN.” 





360 PRINT "IN JEDE ZEILE PASSEN" 

370 PRINT "MAXIMAL 60 BUCHSTABEN.” 
390 PRINT "WENN DER TEXT ZU ENDE IST" 
400 PRINT "GEBEN SIE EINFACH * EIN.” 
«10 PRINT 

420 PRINT "LOS GEHT ES” 

460 FOR I = 1 TO 30 

465 LET X=1-1 

«70 PRINT 

480 INPUT Z$ 

482 PRINT 

484 PRINT Z$ 

490 IF 2$="%" THEN GOTO 612 

500 IF LEN(Z$) > 60 THEN GOTO 540 
510 LET T$(I)=Z$ 

512 LET A(I)=LEN(Z$) 

520 NEXT I 

525 X=X+1 

530 GOTO 612 

540 PRINT 

Fortsetzung auf der nächsten Seite -------------------=---- -- > 
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Machen Sie’s geheimnisvoll 





550 
560 
570 
580 
602 
606 
608 
612 
614 
616 
618 
622 
624 
668 
670 
682 
686 
692 
69% 
696 
702 
704 
706 
708 
712 
714 
716 
718 
122 
724 
726 
728 
730 
132 
738 
742 
74% 
745 
746 
748 
750 
762 
764 
766 
768 


PRINT "ZEILE ZU LANG” 


PRINT 

PRINT "NEU EINGEBEN” 

GOTO 470 

REM KEKKKKRKKKEKK TITTEN TI IK KK KK KT IK KK KK KK IK IK KK I X 
REM # 3. Teil - Geheimzahl x 


REM KRKRKRKRKKKRKKER KK KK KT KT KK KK KK KK KK KK TR IK IK KK KK KK KK KK KR I I KK X 


PRINT 

PRINT "SIE KOENNEN JETZT EINE” 
PRINT "GEHEIMZAHL EINGEBEN" 
PRINT 

PRINT "SIE DARF ZWISCHEN” 
PRINT "2 UND 999 LIEGEN" 
INPUT G 

IF 6<2 OR 6>999 THEN GOTO 686 
GOTO 706 . 

PRINT "FALSCHE GEHEIMZAHL” 
PRINT "NEU EINGEBEN" 


GOTO 61% 
REM KKKKKKKRKRKKKK KK KT KT IK KK KK KK KK KT TI KK TR KK IK KK KT IK IT KK T KT KK KT IK TI TI IK TI KK I N X 
REM %* %&. Teil - Kodieren und ausgeben x 





REM KRRKKERKRKKRKKKKKK KK KK KT KT IK KT KK KK KT TR I KK KK TR IK KT TI KT IK KT I I I I I X 


PRINT 
PRINT "TEXT UND GEHEIMZAHL SIND KOMPLETT" 
PRINT "JETZT WIRD VERSCHLUESSELT" 


OPEN 1,4 
REM KKKRKKKKKKKKKK KT TITTEN TI I N I NK 
REM * Schleife über alle Zeilen « 


REM KRARKRKKKRKKRKKKKK KK CK KT TI KT KK KK KK KK KK TI TI I KK KK KK I I I NK 


FOR I = 1T0X 
PRINT#$1,ALI)+G, 


REM KRAKKKKKRKKK RK KK KK KK KK KK KK KK KK KK TE KK KK KK KK KK KK KK KK KK KK KK KK KK KK KU NK 


REM * Schleife über alle Zeichen einer Zeile x 
REM KRARRKRRKKRKRKKRKKEKTK KK KK KT IK KK KT KK KK NK IK KK KT IK I IK IK KK KK I IK N I N 
FOR J = 1 TO A(I) 

LET R$=T$(1,)J) 

LET R=ASC(R$) 

PRINTET,R+G, 


NEXT ) 
NEXT I 
CLOSE 1 
REM KRAKRKKRRKKKRKKKK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK IK IK KK KK KK KK TI KK I NK 
REM #* Der Text ist kodiert und gedruckt x 
REM * Programmende * 


REM KRRRRRRRKERKKKKRK KR KK KK KK KK KK KK KK KK KK KR KK KK LK KR KK KK KK TR KK I I NK 
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Knacken Sie das Geheimnis 





Mit diesem Programm können Sie die vor- 
her verschlüsselten Texte wıeder entziffern. 
Dazu müssen Sıe natürlich die Geheimzahl 
kennen. 


Knacken Sie das Geheimnis 


Ohne die richtige Zahl läuft gar nichts. Sie 
bekommen bestenfalls Unsinn auf den 
Schirm, oder das Programm bricht mit einer 


Fehlermeldung ab. 





an a a EEE NT LTE EEE EEE SET ERTEILEN 


Knacken Sıe das Geheimnis 


Zuerst müssen Sıe ım Speicher wieder 
Platz für den Text (T$) und für die jeweiligen 
Zeilenlängen (A) reservieren. 

Dann das Programm nach der Ge- 
heimzahl, die unter G gespeichert wird, wenn 
sie ım vorgegebenen Bereich lıegt. 

Wenn Sıe übrigens ım Kodierungspro- 
gramm den Bereich geändert haben, sollten 
Sıe das in diesem Programm nicht vergessen. 
Sonst haben Sie sich selber ausgerrickst. 

Hoffentlich haben Sie jetzt die richtige Ge- 
heimzahl eingegeben, denn ab Zeile 717 wird 
jetzt entschlüsselt. 


Wieviel Zeilen hat der Text? 


list der Index für die Schleife über alle Zei- 
len. Da wır noch nıcht wissen, wıeviel Zeilen 
der Text hat, können wir die Schleife diesmal 
nicht mit einer FOR-Schleife realisieren. I 
gibt jeweils an, in der wievielten Zeile wir uns 
befinden und wird im Programm beı 717 auf 0 
gesetzt. 

Nun können Sıe den kodierten Text Zahl 
für Zahl eingeben. Als letzte Zahl müssen Sie 
zur Markierung des Iextendes 9999 einge- 
ben. 


Wählen Sie 9999 zum Abschluß 


Wenn Sıe alle Zahlen richtig eingegeben 
haben, kann die 9999 nur an der Stelle kom- 
men, an der das Programm eigentlich die Ein- 
gabe der kodierten Zeilenlänge erwartet. 

Sıe erinnern sıch, wır hatten im Kodie- 
rungsprogramm die Zeilenlänge stets mitko- 
diert. So wissen wir jetzt immer, wann eine 





| 
| 
| 
| 
i 
| 
| 
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Knacken Sıe das Geheimnis 








Zeile zu Ende ıst. Natürlich hätten wır auch 
einen Kode für Zeilenende festlegen können. 
Doch damit wäre der Kode leichter zu knak- 
ken. 

Aus der ersten Zahl jeder Zeile können wir 
also ihre Länge ablesen, indem wır die Ge- 
heimzahl subtrahieren. Das passiert in Zeile 
730. 


Soviel Zeichen hat die Zeile 





Damit haben wir gleich auch die Ober- 
grenze für die Schleife, ın der die einzelnen 
Zeichen einer Schleife dekodiert werden. 
Diese Schleife läuft von Zeile 738 bis 746. 

Jede Zahl wird eingelesen, dann subtra- 
hiert das Programm die Geheimzahl und 
wandelt das Ergebnis mit der Standardfunk- 
tion CHR$ in ein Textzeichen um, das wır ın 
Feld T$ (für Text) speichern. 

Ab Zeile 800 müssen wir dann den fertig 
dekodierten Text nur noch ausgeben. Nach 
800 kommt das Programm, wenn Sıe 9999 
eingeben. 

Die Zahl der Zeilen haben wır uns Jain Ige- 
merkt. Weil aber die 9999-Zeile mitgezählt 
wurde, müssen wır 1 abziehen, um die Ober- 
grenze für die Schleife ab 800 zu erhalten. 

Zum Schluß druckt das Programm noch 
die Anzahl der dekodierten Zeilen. Versu- 
chen Sie doch mal, ein Programm zu schrei- 
ben, das den Kode ohne Geheimzahl knackt. 
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100 
110 
120 
130 
140 
150 
| 160 
170 
175 
180 
185 
190 
200 
210 
230 
235 
240 
250 
260 
602 
606 
608 
610 
612 
61% 
I 0616 
618 
622 
624 
668 
670 
682 
686 
692 
693 
69% 
1.696 
| 702 
704 
706 
707 





Fortsetzung auf der nächsten Seite -------------------------- > 


Knacken Sie das Geheimnis 





REM ZRRRRRKRRKKRKKRK KK KK KK KT KT IK KK KK KT KK KK KK KT IK KT N IK KK I I I X 


REM * Nußknacker Programm Dekodierung (412) x | 
REM * x 
REM * 1. Teil - Begrüßung - Speicher x 
REM KRRRRKRRKKKKKK KK KK KK KK CK KK CK KK KK KK KH KK KK KK KK KK KK KT KK TI KK KK N KK KT KK KK KK I I X 
PRINT "HALLO, HIER IST DAS" 

PRINT "NUSSKNACKER PROGRAMM" 

PRINT "MIT DEM SIE TEXTE” 

PRINT 

PRINT "tx ENTSCHLUESSELN BE. 2 Ze 

PRINT 

PRINT "KOENNEN" 

PRINT 

REM KKKKKKKKKKKKKK KK KT TE TI KT TI TI TR I KK TE TI TI TI TI TE TK T TI  TI T K TK K T K K 
REM * Platz für den Text (T$) x 
REM * Zeilenlänge (A) x 
REM KKKKKKKKKRKKK KK KK KT TE KK TE TI TI IN I KT KK IK KK TR TI IK KT TE N N I IK II KK KK KK RK I N 
DIM A(30) 

DIM T$(30,60) 

REM KRKRKKEKKKRKKRKKK KT TE TE T TK TI TI IT IT TI TI IT IK TI TE TI TI TI IK IK KK KK KK KK U N X 


REM %* 2. Teil - Geheimzahl x 
REM KKRKKRKKKKEKKKKKK KT TI TKTK KT TK TK T TK TK T TN TK IK T TK TK T TN I TK T T TK K TK T I K K TK TK TK  K K K X 
PRINT 

PRINT 

PRINT "SIE KOENNEN JETZT EINE” 

PRINT "GEHEIMZAHL EINGEBEN” 

PRINT 

PRINT "SIE DARF ZWISCHEN” 

PRINT "2 UND 999 LIEGEN” 
INPUT G 

IF 6<2 OR 6>999 THEN GOTO 686 

GOTO 706 

PRINT "FALSCHE GEHEIMZAHL” 

PRINT "NEU EINGEBEN” 

PRINT 

GOTO 618 

REM RKRKKEKKKRKKKKK KK TITTEN TI TI KT TE KT KK KK IK TI N TI II TI TI IK KK KK TI I N 


REM * 3. Teil - Dekodieren und speichern « 
REM KRRKRKKERKERKKKK KK TI CK KK TE TK KT IK KT KT KT KK KK KK KK KK KK IK KK KK KK U I I X 
PRINT 

PRINT "JETZT WIRD ENTSCHLUESSELT” 
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Knacken Sie das Geheimnis 





708 
709 
710 
m 
712 
713 
714 
715 
716 
717 
718 
719 
122 
72% 
1726 
1728 
730 
732 
73% 
736 
738 
7&0 
742 
Th 
765 
746 
748 
762 
764 
766 
768 
800 
810 
820 
822 
824 
826 
830 
840 
850 


PRINT 

PRINT "GEBEN SIE ALS LETZTE” 

PRINT "ZAHL 9999 an” 

PRINT 

PRINT "DER ORIGINALTEXT DARF” 

PRINT "MAXIMAL 30 ZEILEN HABEN” 

PRINT 

PRINT "DER ORIGINALTEXT DARF PRO ZEILE” 

PRINT "MAXIMAL 60 ZEICHEN HABEN” 

LET I=0 

REM KRRURKKRKKRKKK KK KR IK IKT N KK KK KK KT KT KT TE TR NT IK KK KT KT I N I I 
REM * Schleife über alle Zeilen x 
REM KERKKRKKKKRKK RK KK KT KT KT N I TE TR N I IT KT KT IT KT IN N I KT KT TI TI KK I I NR 
LET I:I+1 

INPUT A(I) 

IF A(1)=:9999 THEN GOTO 800 

LET A(I)=A(I)-G 

REM WERKKKRRRKRKK KK KK TR KT TE TK TR TI TE T TK T TK TN T T T T K T T T TK TK  T TN K TK TK K T K TK TK TK N IK NT 


REM * Schleife über alle Zeichen einer Zeile “ 
REM KRRRRKRKRRRKRKK RK KK KK KT IK KT N RK KK TR KT TR KT KT KK KK KT KK KK KK N N 
FOR J = 1 TO A(]) 

INPUT R 

LET R=R-G 

LET RS=CHRS(R) 

LET T$(T,J)=R$ 

NEXT )J 

60TO 724 

REM RRRRRRRKRKRRRKER KK NK KK KT N TR TR TR KT KT KK TITTEN NK 
REM * Der Text ist dekodiert und gespeichert Rx 
REM * &. Teil - Ausdrucken des Textes * 
REM KRRRRERKRRKKKK RK KK KK KK KK TE KK KT N KT NK RT KK KT RK KK KK N I I 
FOR L=1 TO I-1 

LPRINT T${L) 

NEXT L 

LPRINT 

LPRINT 

LPRINT I-1;” DEKODIERTE TEXTZEILEN" 

REM RKRRRKKRKRRRKKKKK KK KT KR KK KT KK TR KT TR N KT N KK KK KK KK KK KK KK KK KR X 


REM * Programmende % 
REM KKRRRKRRKRKKKK KK CK KK CT TE TR I KK TR KT NR KT I TI TI KK 
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re nennen re een nahen re ee 





Computer rechnen meist rıchtig 


Dieses Programm trainiert Sie in den 
Grundrechenarten. Sie müssen mindestens so 
lange trainieren, bis Sie 30 Aufgaben aus je- 
dem Bereich hintereinander fehlerfrei lösen. 





Computer rechnen meist richtig 





Und denken Sie daran. Computer irren 
sich beim Rechnen selten, wenn sie richtig 
programmiert sind. Also geben Sie nicht dem 
Computer die Schuld. 


7} 
24 
N 





Computer rechnen meist richtig 


Zuerst erhalten im Programm nach der Be- 
grüßung die Statistik-Varıiablen den Grund- 
wert. 

Unter A1 zählt der Computer später die 
Additionsaufgaben, die er Ihnen gestellt hat. 
Unter A2 die richtigen Antworten. Beide 
sollten nach Möglichkeit immer den gleichen 
Wert haben, dann sınd Sie richtig gut. 

Unter $1 zählt der Computer später die 
Subtraktionsaufgaben, die er Ihnen gestellt 
hat. Unter S2 die richtigen Antworten. Auch 
hier sollten beide Variable nach Möglichkeit 


immer den gleichen Wert haben. 


Grundwerte für die Statistik 


Unter Mi schließlich zählt der Computer 
später die Multiplikationsaufgaben, die er Ih- 
nen gestellt hat. Unter M2 die richtigen Ant- 
worten. Wenn Sie es schaften, auch diese bei- 
den Werte immer in Übereinstimmung zu 
halten, sınd Sıe Spitze. 

Übrigens, wenn Sıe einen Taschenrechner 
neben Ihren Computer legen, macht das Spiel 
nur halb so viel Spaß. Trainieren Sıe lieber Ihre 
grauen Zellen als die Speicherzellen des 'Ia- 
schenrechners. 





\ 
i 
} 
. 
. 
i 
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Wählen Sie die Rechenart 


Als nächstes können Sıe ım Programm die 
a Rechenart auswählen. Geben Sie 
ür die Addition ein ” A”, für die Subtraktion 
ein ”S” und für die Multiplikation ein ”M” ein. 
Ab Zeile 380 prüft der Computer Ihre Einga- 
be und das Programm wird entsprechend 
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fortgesetzt. Wenn Sie ein anderes Zeichen 
eingeben, als eins der drei erlaubten, weist der 
Computer Sıe „sanft“ aber konsequent auf 
den richtigen Weg. 





Trainieren Sıe die Addition 





In die Zeile 500 kommen Sie, wenn Sie das 
Additionstraining gewählt haben. Zuerst 
merkt der Computer sıch, die wievielte Auf- 
gabe er Ihnen bei der Addition stellt. Dann 
werden ın den Zeilen 516 bis 526 zwei Zufalls- 
zahlen bestimmt. 

Zufallszahlen liegen immer zwischen O 
und 1. Solche Werte, mit vielen Stellen hinter 
dem Komma, sind für das Training nicht ge- 
eignet. 

Durch Multiplikation mit 1000 bringen 
wir dıe erste Zahl ın den Bereich von O bis 999. 
Dann schneiden wir die Reste hinter dem 
Komma ab (Funktion INT). 

Die zweite Zahl wählen wir nicht ganz so 
hoch und legen sie durch Multiplikation mit 
100 ın den Bereich von O bis 99. 


keit bestimmen Sie 





Die Schwierig 





Den Schwierigkeitsgrad können Sıe übrı- 
| gens durch Veränderung dieser Werte selbst 
| bestimmen. 
| Endlich ıst es soweit, und der Computer 

nennt Ihnen die beiden Werte, die Sıe addie- 
ren sollen. 

Gleich vergleicht er Ihre Eingabe mit dem 
richtigen Ergebnis (Zeile 540). Wenn Sie rich- 
tig liegen, addiert er bei den richtigen Lösun- 
gen (A2) einen Treffer. 
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Sonst gıbt er Ihnen zum Trost das richtige 
Ergebnis. Aus Fehlern wird man klug. 

Sie können sıch Jetztnach einem Sprung zu 
Zeile 280 für einen neuen oder denselben 
Trainingsbereich entscheiden und sich eine 
neue Aufgabe stellen lassen. 

Oder Sıe haben die Schnauze voll und ge- 
ben beı 568 "?NEIN” ein, dann liefert das Pro- 
gramm Ihnen ab Zeile 800 eine Statistik Ihrer 
Leistungen. 





Subtrahieren will gelernt sein 


Der nächste Programmteil ıst die Subtrak- 
tion. In die Zeile 600 kommen Sie, wenn Sie 
das Subtraktionstraining gewählt haben. 

Zuerst merkt der Computer sıch, die wie- 
vielte Aufgabe er Ihnen bei der Subtraktion 
stellt. Dann werden in den Zeilen 616 bis 626 
zwei Zufallszahlen bestimmt. Das Verfahren 
entspricht dem beı der Addition. 

Auch hier können Sie den Schwierigkeits- 
grad durch Veränderung der Werte 1000 und 
100 selbst bestimmen. 


Zahlenpaare auf dem Bildschirm 


Endlich ıst es dann soweit, und der Com- 
puter nennt Ihnen die beiden Werte. Sıe sollen 
den zweiten vom ersten abziehen. 

Gleich vergleicht er Ihre Eingabe mit dem 
richtigen Ergebnis (Zeile 640). Wenn Sie rich- 
tig liegen, addiert er bei den richtigen Lösun- 
gen (diesmal S2) einen Treffer. Sonst gibt er 
Ihnen zum Trost das rıchtige Ergebnis. 


41 








a ET ERNERNEREDEETERERTTERTCHE NEN 


Computer rechnen meist richtig 


Sıe können sich jetzt nach einem Sprung zu 
Zeile 280 für einen neuen oder denselben 
Trainingsbereich entscheiden und sich eine 
neue Aufgabe stellen lassen. 

Wenn Sıe keine Lust mehr haben, bringt 
ein ”"NEIN” in Zeile 668 Sie zur Statistik ın 
Zeile 800. 





Multiplizieren ist ganz schön schwer 





Der letzte Trainingsteil ist die Multiplika- 
tion. Er beginnt ab Zeile 700. Dahın kommen 
Sie, wenn sie ein ”M” für Multiplikation ein- 
gegeben haben. 

Zuerst merkt der Computer sıch, die wıe- 
vielte Aufgabe er Ihnen beı der Multiplika- 
tion stellt. Dann werden in den Zeilen 716 bis 
726 zwei Zufallszahlen bestimmt. 

Wieder können Sie den Schwierigkeits- 
grad selbst bestimmen. Der Computer nennt 
Ihnen dann die beiden Werte, die Sie multipli- 
zieren sollen. 


Haben Sıe einen Treffer zu verzeichnen? 





Gleich vergleicht er Ihre Eingabe mit dem 
richtigen Ergebnis (Zeile 740). Wenn Sıe rich- 
tig liegen, addiert er bei den richtigen Lösun- 
gen (M2) einen Treffer. Sonst bekommen Sie 
das richtige Ergebnis. 

Sıe können dann das Training abbrechen 
und sıch die statistischen Werte Ihrer Rechen- 
künste nennen lassen, oder Sıe lassen den 
Computer eine neue Aufgabe stellen. 

Durch die Zufallstunktion des Systems 
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werden Ihre Trainingsstunden übrigens nie 
in verlaufen. In Zeile 260 wird die Basis 
ür Ihre Trainingszahlen abhängig von der 
Zeit, die Ihr Computer schon eingeschaltet 


ist, gelegt. 





Verfeinern Sie die Bewertung 


Der Statistikteil am Ende des Programms 
(ab Zeile 800) liefert Ihnen dann die Einzeler- 
gebnisse ın den „Disziplinen“. Zusätzlich ad- 
diert er die Einzelergebnisse. 

Dieses Gesamtergebnis erhält ab Zeile 854 
eine Wertung. Da ist noch viel Raum für Ihre 
Phantasie, denn die Wertung kann durchaus 
noch wesentlich differenzierter ausfallen. 

Zum Abschluß können Sie wählen, ob Sie 
noch einmal ganz von vorn beginnen wollen. 
Alle statistischen Werte werden dann zurück- 
gesetzt. Die Alternative ist das Ende des Pro- 
gramms. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2460 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3&0 
350 
360 
370 
| 380 
390 
400 
410 
420 
430 
£&D 
450 
500 
502 
503 
504 
506 








Fortsetzung auf der nächsten Seite 


REM KRRRKRKKKKRKRKK KK KK KK KK TR KK KK TR KK KT KT TR TU IN N KK TE TNK K KK T  K K T K K K K K K N NX 
REM * Nußknacker Programm Training (46) x 
REM * x 
REM * 1. Teil - Basisdaten - Initialisierung « 
REM KRERKKKKKRKKKKK KK CK KK KK KK CT KK KT KT KK KK CT TR KK KK KK KT IK KK KK KK KT KK KK KK KK KK RK KU I I 
PRINT "HALLO, HIER IST DAS" 

PRINT "NUSSKNACKER PROGRAMM” 

PRINT "FUER IHR PERSOENLICHES” 

PRINT 

PRINT "rear TRAINING #*trex" 

LET A1=0 

LET A2=0 

LET S1=0 

LET S2=0 

LET M1=0 

LET M2=0 

LET X=RND(-TI) 

PRINT 

PRINT "WAS WOLLEN SIE TRAINIEREN ?” 

PRINT "ZUR AUSWAHL HABEN SIE: ” 

PRINT 

PRINT "ADDIEREN (A)” 

PRINT "SUBTRAHIEREN (s)" 

PRINT "MULTIPLIZIEREN (M)” 

INPUT A$ 

REM KRKRKRKKRKRRK RR KK TR TR TR TR RK TR TR KK TR TR NK KK KT TI TR KK KK KT KK KK KK KK KK KK N I NR 
REM * 2. Teil - Auswahl “ 
REM KRREKRKRKRKRRKKR KK TR TR KK TR IK KT KK KT TE N N TI IK TE KT TI N N N TI N TI NR N IK I N 
IF A$="A" THEN GOTO 500 

IF A$S="S” THEN 60TO 600 

IF A$S="M" THEN GOTO 700 

PRINT 

PRINT "DIESE EINGABE WAR NICHT RICHTIG" 

PRINT "PROBIEREN SIE ES NOCHMAL” 

PRINT 

60T0O 290 

REM KRRKKKRKKKKK RR KK KK KT TE TI TE TE KT TR IKT TI TR IK KK TE KT KT KK KK KK KK KK KT TI N I N I NK 
REM * 3. Teil -  Addieren x 
REM KRKRRKRKERRKRKK KK KT KK KT TR KK KT TR IT TE CK TR KT TE KK KK KK N IK KT TI KK KK KK KT IK I I NK 
PRINT 

PRINT "TRAINIEREN SIE DIE ADDITION” 
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508 LET A1l=Al+1 - 

510 PRINT "AUFGABE NR. ";Ai 

512 PRINT 

514 PRINT "ADDIEREN SIE DIESE ZAHLEN: " 

516 LET X=RND(O) 

518 LET X=X*%1000 

520 LET X=INT(X) 

522 LET Y=RND(0) 

52& LET Y=Y*100 

526 LET Y=INT(Y) 

528 PRINT X,Y 

530 PRINT 

532 PRINT "SAGEN SIE MIR DAS ERGEBNIS” 

534 INPUT E 

536 PRINT E 

538 PRINT 

540 IF E=X+Y THEN G0TO 550 

542 PRINT "LEIDER FALSCH" 

544 PRINT "DAS RICHTIGE ERGEBNIS IST:" 

546 PRINT X+Y 

548 GOTO 556 

550 PRINT "TREFFER" 

552 PRINT "SIE HABEN DIE RICHTIGE LOESUNG" 
554 LET A2=A2+1 

556 PRINT 

558 PRINT "STATISTIK ADDITION: ” 

560 PRINT "GESTELLTE AUFGABEN: ";Ai 

562 PRINT "RICHTIG GELOESTE AUFGABEN: ";A2 
564 PRINT 

566 PRINT "WOLLEN SIE WEITERMACHEN (JA/NEIN)?" 
568 INPUT A$ 

570 IF AS$S="NEIN" THEN GOTO 800 

571 PRINT 

572 GOTO 280 

600 REM KHrRRRKKRRRKKEK KK KK N N KK I € X 


602 REM * &. Teil 5 Subtrahieren x 
603 REM KRKKRKKKKKKKKRKKK KT KK CK KT N KT KT KK TE KT N U N I I I I KK KK ıı ı 
604 PRINT 

606 PRINT "TRAINIEREN SIE DIE SUBTRAKTION" 

608 LET S1=:S1+1 

610 PRINT "AUFGABE NR. ";S1 


Fortsetzung auf der nächsten Seite -------------------------- > 
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612 PRINT 

| 614 PRINT "SUBTRAHIEREN SIE ZAHL 2 VON ZAHL 1" 
616 LET X=RND(0) 

618 LET X=X*1000 

620 LET X=INT(X) 

622 LET Y=RND(0) 

624 LET Y=Y*100 

626 LET Y=INT(Y) | 
628 PRINT X,Y | 
630 PRINT 

632 PRINT "SAGEN SIE MIR DAS ERGEBNIS" 

634 INPUT E 

636 PRINT E 

638 PRINT 

640 IF E=X-Y THEN G0TO 650 

642 PRINT "LEIDER FALSCH" 

644 PRINT "DAS RICHTIGE ERGEBNIS IST:" 

646 PRINT X-Y 

648 GOTO 656 

650 PRINT "TREFFER" 

652 PRINT "SIE HABEN DIE RICHTIGE LOESUNG" 

654 LET S2=S2+1 

656 PRINT 

658 PRINT "STATISTIK SUBTRAKTION" 

660 PRINT "GESTELLTE AUFGABEN: ";S1 

662 PRINT "RICHTIG GELOESTE AUFGABEN: ";S2 

664 PRINT 

| 666 PRINT "WOLLEN SIE WEITERMACHEN (JA/NEIN)? 
| 668 INPUT AS 

670 IF A$S="NEIN" THEN GOTO 800 

671 PRINT 


672 GOTO 280 
100 REM KrrrRRR EEE EN 





| 702 REM * 5. Teil -  Multiplizieren x 
703 REM PETER EEE RE EEE EEE 2 5 5 2 2 5 2 2 2 5 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 2.2. 
704 PRINT 


| 1706 PRINT "TRAINIEREN SIE DIE MULTIPLIKATION" 
| 708 LET M1=M1+1 
110 PRINT "AUFGABE NR. ";M1 

712 PRINT 

714 PRINT "MULTIPLIZIEREN SIE DIESE ZAHLEN: ” 


Fortsetzung auf der nächsten Seite ------- mm en > 
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716 LET X=RND(D) 

718 LET X=X*1000 

720 LET X=INT(X) 

722 LET Y=RND(0O) 

724 LET Y=Y*100 

726 LET Y=INT(Y) 

728 PRINT X,Y 

730 PRINT 

732 PRINT "SAGEN SIE MIR DAS ERGEBNIS" 

73& INPUT E 

736 PRINT E 

738 PRINT 

740 IF E=X*Y THEN GOTO 750 

T&2 PRINT "LEIDER FALSCH" 

Thk& PRINT "DAS RICHTIGE ERGEBNIS IST:” 

T&6 PRINT X*Y 

748 GOTO 756 

750 PRINT "TREFFER" 

752 PRINT "SIE HABEN DIE RICHTIGE LOESUNG" 
75& LET M2=M2+1 

756 PRINT 

758 PRINT "STATISTIK MULTIPLIKATION:" 

760 PRINT "GESTELLTE AUFGABEN: ";M1 

762 PRINT "RICHTIG GELOESTE AUFGABEN: ";M2 
764 PRINT 

766 PRINT "WOLLEN SIE WEITERMACHEN (JA/NEIN)?" 
768 INPUT A$ 

770 IF AS="NEIN” THEN GOTO 800 

Trı PRINT 


772 6GOTO 280 
E00 REM Kara N 





802 REM *® 6. Teil - Gesamtstatistik x 
80% REM KRKKKKKKKÄKKKKKRK KK TE TE TE TI KK KK KK KK KK KK KT KT KK IK IK KK IF KK TI KK KT KK U X 
806 PRINT 

808 PRINT "GESAMTSTATISTIK" 

810 PRINT 


812 PRINT "ADDITION:” 

81& PRINT "GESTELLTE AUFGABEN: ";A1 
816 PRINT "RICHTIGE LOESUNGEN: ";A2 
818 PRINT 

820 PRINT "SUBTRAKTION:” 


Fortsetzung auf der nächsten Seite --------------------- - -- -- > 
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822 PRINT "GESTELLTE AUFGABEN: ";S1 
824 PRINT "RICHTIGE LOESUNGEN: ";S2 
826 PRINT 

828 PRINT "MULTIPLIKATION:” 

830 PRINT "GESTELLTE AUFGABEN: ";Mi 
832 PRINT "RICHTIGE LOESUNGEN: " ;M2 
834 PRINT 

836 LET G1=A1+S1+M1 

838 LET 62=A2+S2+M2 

840 PRINT "INSGESAMT: ” 

842 PRINT "GESTELLTE AUFGABEN: ";G61 
84& PRINT "RICHTIGE LOESUNGEN: ";6G2 


846 PRINT 
848 REM KKRKKKKKRKKKKK KK KT KK KK TE TE TE KK KT TI KT TI IK TI TE TI TI IKT TK IK KK KK KT TI IK IK KK KK TI N NK 
850 REM * 7. Teil - Bewertung x 


852 REM KARRRKRKKKKR KK KT KK KK KK TI TI T K T TK T TK T TK K T K  TK K  K TK  K  K K K  I I K X 


854 IF G1=:62 THEN PRINT "GROSSARTIG” 

856 IF G1-62 < 5 THEN PRINT "MITTELMAESSIG" 

858 IF G1-G2 > 4 THEN PRINT "ZIEMLICH MIES” 

860 PRINT 

862 PRINT "WOLLEN SIE EINEN NEUEN VERSUCH STARTEN (JA/NEIN)?” 
864 INPUT A$ 

866 IF AS="JA" THEN GOTO 100 

868 PRINT 

870 PRINT "DANN EBEN NICHT" 

872 REM KARRIERE KK KU NK 


874 REM * Programmende « 
876 REM KRKRRKRKRKRKKK RK KT KK KT CK KK CT IK TE KK KK KK TE TE TI KT KT KK TE KK KT KK IK KK KK KK N I I KK I KK N N I I I X 


T64*934 8236+590 8876-654 T6&*934 8236+590 8876-65% 
764*934 8236+590 8876-654 1764*%934% 8236+590 8876-654 
764*93%& 8236+590 8876-654 764*%934 8236+590 8876-654 

64*%934 8236+590 8876-654 764%93% 8236+590 8876-654 
1764%934 8236+590 8876-654 164*934 8236+590 8876-654 

64*934 8236+590 8876-654 17164*%934 8236+590 8876-654 
764%93% 8236+590 8876-654 764%934 8236+590 8876-654 
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Die Zuordnung eines Landes zu einer vor- 
gegebenen Stadt können Sie mit diesem Pro- 
gramm üben. Wir haben im Beispielnur weni- 
ge Städte und Länder vorgegeben. Damit ha- 
ben Sıe aber erst einmal einen Anfang. 


Wo ist es bitter kalt? 


Später können Sie dann ergänzen. Eine Er- 
weiterung dieses Programms mit Lösungs- 
vorschlägen finden Sie im nächsten Kapitel. 
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Wo ist es bitter kalt? 


Zuerst müssen Sie im Speicher Platz für Ih- 
re Daten schaffen. Da sind einmal die Daten, 
nach denen Sie fragen wollen (S$). Dazu ge- 
hören die Lösungen (L$). 

Wir haben in unserem Beispielprogramm 
sechs solcher Paare vorgesehen. Entspre- 
chend sehen die DIM-Anweisungen in den 
Zeilen 230 und 240 Platz für sechs Worte vor. 

Wenn Sie dieses Programm ergänzen wol- 
len, um mehr Fragen unterzubringen, müs- 
sen Sie statt der 6 die von Ihnen vorgesehene 
Anzahl eintragen. 


leichen Index 





In den folgenden Anweisungen (bıs 370) 
werden zuerst sämtliche Suchworte eingege- 
ben, dann sämtliche Lösungen. Die Zahl ın 
Klammern (Index) muß für Suchwort und 
Lösung immer gleich sein. Es unterscheiden 
sich nur die Speicherbereiche (S$ oder L$). 

Ab Zeile 420 beginnt dann die Abfrage- 
schleife. Es werden alle Suchworte nachein- 
ander abgefragt. Falls Sie die Anzahl der 
Suchworte geändert haben, müssen Sıe ın 
Zeile 420 die 6 ebenfalls ändern. 





Keine Antwort wird vergessen 





Ihre Antworten merkt sich der Computer 
übrigens auch. Dafür steht das Feld A$ (wie 
Antworten) zur Verfügung. Es muß genauso 
groß sein, wie die beiden anderen Felder. Die 
Größe wird in Zeile 250 festgelegt. 

Die Antworten liest der Computer ın Zeile 
490. Er prüft, ob Sie die richtige Lösung ange- 
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geben haben. Falls nein, schreibt er die richti- 
ge Lösung auf den Bildschirm. 

In Zeile 710 geht dann nach einer Abfrage, 
ob Sıe überhaupt weiter raten wollen, die 
Schleife von Zeile 420 zu Ende. Ein Durchlauf 
entspricht dem Raten (oder Nicht-Raten) ei- 
nes Suchwortes. 


Alle Fragen, alle Antworten 


Zum Schluß liefert der Computer Ihnen eı- 
ne Gesamtliste aller Suchworte, Lösungen 
und Ihrer Antworten. Sie können dann noch 
einmal ım Überblick Ihre Antworten mit den 
richtigen Lösungen vergleichen. In Zeile 840 
müssen Sıe wıeder die 6 ändern, falls Sie zu- 
sätzliche Suchworte programmieren. 





Trainieren Sie umgekehrt 


Wenn Sıe auch umgekehrt trainieren wol- 
len, müssen Sie einfach überall im Programm 
nach Zeile 380 S$ und L$ vertauschen. Alter- 
nativ können Sıe S$ und L$ auch ın den Zeilen 
260 bis 370 austauschen. Die Texte sollten Sie 
dann allerdings auch ändern, sonst sind die 
Fragen ziemlich unsinnig. Viel Spaß! 
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110 REM TRRRRKKKKK KK CK KK CK KT  TK K K TK KK KK KK KK KT KK KK  K K K  I K I I NK 


120 REM * Nußknacker Programm Raten Sie mal (43) x 
130 REM * k 
140 REM * 1. Teil - Basisdaten - Initialisierung x 


150 REM KAAURKKEUKKE ER KKKKKKKKLLKKKKKKKKK K 


160 PRINT "HALLO, HIER IST DAS" 
170 PRINT "NUSSKNACKER PROGRAMM" 
180 PRINT 

190 PRINT "RATEN SIE MAL" 

200 PRINT 

210 PRINT "ICH NENNE IHNEN JETZT STAEDTE" 
220 PRINT "NENNEN SIE DAS LAND DAZU” 
230 DIM S$(6) 

20 DIM L$(6) 

250 DIM A$(6) 

260 LET S$(1)="PARIS” 

270 LET S$(2)="LONDON” 

280 LET S$(3)="NEW YORK” 

290 LET S$(4)="LISSABON" 

300 LET S$(5)="MADRID" 

310 LET S$(6)="TOKIO” 

320 LET L$S(1)="FRANKREICH” 

330 LET L$S(2)="ENGLAND” 

340 LET L$(I)="USA” 

350 LET L$(4)="PORTUGAL” 

360 LET L$(5)="SPANIEN” 

370 LET LS(6)=" JAPAN” 


380 PRINT 
390 REM KRKRKKKKKKK KK KK KK KK KK KT I TI I I I I KK TH KT I I I KK KK KK U X 
400 REM * 2. Teil = Abfrage x 


44ID REM KRAKKKKRKKK KK KK KT KT KK KK IK KT KK KK KK KT N I N TE KT KK KK I I I I IK X 


420 FOR I = 1 T06 

430 PRINT44O PRINT "NUN RATEN SIE MAL” 

450 PRINT 

460 PRINT S$(I) 

«70 PRINT 

480 PRINT "WIE HEISST DAS LAND DAZU?" 

490 INPUT AS(I) 

500 REM Kr KK KK KK KK N 


510 REM * 3. Teil - Auswertung x 
520 REM KRANKER KK KK KK KK KK KK KK KK KK KK I © 


530 IF A$(I)=L$(I) THEN GOTO 620 


Fortsetzung auf der nächsten Seite -------------------------- > 
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540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


PRINT "OAS STIMMT LEIDER NICHT" 

PRINT 

PRINT "DIE RICHTIGE LOESUNG IST: *; 

PRINT LS(I) 

PRINT 

PRINT "VERSUCHEN SIE ES NOCHMAL” 

PRINT 

G0TO 680 

PRINT "TREFFER" 

PRINT "GENAU DAS IST DIE LOESUNG" 

PRINT 

REM KKEKKKKRKKKKKK KK KK KK KK KT KK KK KK KH KK KK KK NK KK U I KK 
REM %* 4. Teil - Abfrage nochmal raten? x 
REM KRKAKKKKKKKKK KK KK KK KK KK KK KK KT KT N KK KK KK KK U N KU KK I KK 
PRINT "WOLLEN SIE NOCHMAL RATEN (JA/NEIN)?" 

INPUT 0$ : 

IF Q$="NEIN" THEN GOTO 770 

NEXT I 

PRINT "LEIDER NICHTS MEHR DA" 

PRINT 

REM KKEKKKKKKKKKKK KK KK KK KK KK KK KK KK KT KK N KK KT KK KK KK A KK 
REM * 5. Teil - Gesamtliste x 
REM KKKRKKKKKKKKK KK KK KK KK KK KK KK KK KH KK KK KK KK X 


PRINT "WOLLEN SIE EINE LISTE” 

PRINT "IHRER RATEVERSUCHE (JA/NEIN)?"” 
INPUT Q$ 

IF Q$="NEIN" THEN GOTO 900 

PRINT 

PRINT "SO HABEN SIE GERATEN" 

PRINT 

FOR J = 1 T06& 

PRINT S$S(J);" - "; 

PRINT AS(J);" ("; 

PRINT LS(J);")" 

NEXT ) 

PRINT 

PRINT "NUN IST SCHLUSS” 

REM KKEKKKKKKKKK KHK KK KK KK KK KK KK KK KK KK KK KK KK KK KT KK KK KK KK KK 


REM * Programmende x 
REM KKKKKKKKKKKK KK KK KK KK KK KK N KK KT KK KK KK KK KK KK KK I KK 
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Autos sind leicht geknackt 





In diesem Ratespiel müssen Sie zu jedem 
Autotyp den Hersteller raten. Wir haben hier 
nur ein paar Autos vorgegeben. Damit kön- 
nen Sie erst mal loslegen. 


Autos sind leicht geknackt 


Später können Sie dann weitere Autos mit 
den Herstellern ergänzen. Das Programm 
schlägt Ihnen übrigens Lösungen vor. 





54 





Autos sind leicht geknackt 








Zuerst müssen Sie ım Speicher Platz für Ih- 
re Daten schaffen. Da sınd einmal die Daten, 
nach denen Sie fragen wollen (S$). Dazu ge- 
hören die Lösungen (L$). 

Wır haben ın unserem Beispielprogramm 
sechs solcher Paare vorgesehen. Entspre- 
chend sehen die DIM-Anweisungen in den 
Zeilen 230 und 240 Platz für sechs Worte vor. 

Wenn Sıe dieses Programm ergänzen wol- 
len, um mehr Fragen unterzubringen, müs- 
sen Sıe statt der 6 die von Ihnen vorgesehene 
Anzahl eintragen. 


Erst das Suchwort, dann die Lösung 


In den folgenden Anweisungen (bis 370) 
werden zuerst sämtliche Suchworte eingege- 
ben, dann sämtliche Lösungen. Die Zahl in 
Klammern (Index) muß für Suchwort und 
Lösung immer gleich sein. Es unterscheiden 
sich nur die Speicherbereiche (S$ oder L$). 

Ab Zeile 420 beginnt dann die Abfrage- 
schleife. Es werden alle Suchworte nachein- 
ander abgefragt. Falls Sie die Anzahl der 
Suchworte geändert haben, müssen Sie in 
Zeile 420 die 6 ebenfalls ändern. 


ee NER SEE WIEN TS RN EISEHEERONE SEEN EEE SENETTNEREEREN LITAUEN TESTEN 22 


ET ee Se ee ee en er 


Aus diesen Lösungen können Sie wählen 





Damit das Raten nicht ganz so schwer ist, 
gıbt das Programm in der Schleife ab Zeile 483 
sämtliche möglichen Lösungen an. Die Zeile 
484 ändert aber die Reihenfolge, damit man 
nicht sofort sieht, daß Lösung 5 beispielswei- 
se zu Frage 5 gehört. 

Diese Schleife wird bei jeder Frage neu 
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Autos sind leicht geknackt 


durchlaufen. Sie bekommen also zu jeder Fra- 
ge alle möglichen Lösungen genannt. 

Wenn Sie das Programm beispielsweise 
zum Vokabeltraining benutzen, hat das den 
zusätzlichen Vorteil, daß sich die Worte durch 
häufige Präsentation optisch einprägen. 


Antworten im Speicher 


Ka 
9 - 


Fragen und Antworten im Überblick 





Ihre Antworten merkt sıch der Computer 
übrigens auch. Dafür steht das Feld A$ (wie 
Antworten) zur Verfügung. Es muß genauso 
groß sein, wie die beiden anderen Felder. Die 
Größe wird ın Zeile 250 festgelegt. 

Die Antworten liest der Computer in Zeile 
490. Er prüft, ob Sie die richtige Lösung ange- 
geben haben. Falls nein, schreibt er die richti- 
ge Lösung auf den Bildschirm. 

In Zeile 710 geht dann nach einer Abfrage, 
ob Sie überhaupt weiter raten wollen, die 
Schleife von Zeile 420 zu Ende. Ein Durchlauf 
entspricht dem Raten (oder Nicht-Raten) eı- 
nes Suchwortes. 





Zum Schluß liefert der Computer Ihnen eı- 
ne Gesamtliste aller Suchworte, Lösungen 
und Ihrer Antworten. Sıe können dann noch 
einmal im Überblick Ihre Antworten mit den 
richtigen Lösungen vergleichen. In Zeile 840 
müssen Sıe wieder die 6 ändern, falls Sie zu- 
sätzliche Suchworte programmieren. 
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Autos sind leicht geknackt 





De a a FE Fa nen a dal are nF aan 





110 REM KR KK KK KK TE KK TE KK KK KT KK TE KT KK KK KK KK KT KK KK KK KK KU I 


120 REM * Nußknacker Programm Autos knacken (%8) % 
130 REM * “ 
1&0 REM %® 1. Teil - Basisdaten - Initialisierung x 


150 REM KRRRRRKAKKK KR KK KK KETTE TI KT TE KT KK KT KT IK KK I I KK KK 


160 PRINT "HALLO, HIER IST DAS" 

170 PRINT "NUSSKNACKER PROGRAMM” 

180 PRINT 

190 PRINT "AUTOS KNACKEN” 

200 PRINT 

210 PRINT "ICH NENNE IHNEN JETZT AUTOTYPEN" 
220 PRINT "NENNEN SIE DEN HERSTELLER DAZU” 
230 DIM S$(6) 

240 DIM L$(6) 

250 DIM AS(6) 

260 LET S$L1)="ESCORT" 

270 LET S$(2)="GOLF” 

280 LET S$(3)="MANTA” 

290 LET S$(4)="RITMO” 

300 LET S$(5)="207” 

310 LET S$(6)="504" 

320 LET L$SLI)="FORD” 

330 LET L$(2)="VW” 

340 LET L$L3I)="OPEL” 

350 LET L$(4)="FIAT” 

360 LET L$(S)="MERCEDES" ' 
370 LET L$(6)="PEUGEOT” 








380 PRINT 
390 REM ZKRRRRRRRKRRKRRK KK KK KT KK KK KK KT KT KK KK KT KT KK KK KK KK I X | 
400 REM * 2. Teil - Abfrage mit Vorschlägen x 


4K1DO REM KERRRRERRKKRKRKRK KK KT TR KT KT N KT KK KK KT ET TR TI TR TR I U N NK 
420 FOR I = 1 T06 

430 PRINT 

440 PRINT "NUN RATEN SIE MAL” 

450 PRINT 

460 PRINT SS$S(I) 

«70 PRINT 

80 PRINT "WIE HEISST DIE AUTOMARKE?"“ 

481 PRINT "HIER EINIGE VORSCHLÄGE" 

482 PRINT 

483 FOR G = 1 T06 

48& LET H=6-G+1 

485 PRINT LS(H) 

k86 NEXT G 

Fortsetzung auf der nächsten Seite ------------------- --- -- -- > 


NH D, 


5/ 


























Autos sind leicht geknackt 





490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
8&0 
850 
860 
870 
880 
890 
900 
910 
920 
| 930 





INPUT A$(I) 
TIERE EL ES TEL ZT EZ SITZ EI ZZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2.2.2. 2.2. 2.2. 


REM * 3. Teil - Auswertung x 
REM KKRKKEKKKKKK KK IK KT KT TI IK KT IK I KK TE TI TK TK TK KK TK K K TR  T K K K K K K K K X 
IF AS(I)=L$S(I) THEN GOTO 620 

PRINT "DAS STIMMT LEIDER NICHT" 

PRINT 

PRINT "DIE RICHTIGE LOESUNG IST: "; 

PRINT LS(I) 

PRINT 

PRINT "VERSUCHEN SIE ES NOCHMAL” 

PRINT 

G0OTO 680 

PRINT "TREFFER" 

PRINT "GENAU DAS IST DIE LOESUNG” 


PRINT 
REM KRKKKRKKKKKK KK KK TE TR KT KT KT TI T K TK  TK TK TK T TK TK  TK K TK K K TK TK K  K K K K K K N X 
REM %*£ %&. Teil - Abfrage nochmal raten? x 


TIERES E SLR L LE ELSE LS TEL ID ES I ED EEE 22 2 2 2 2 2 2 22, 
PRINT "WOLLEN SIE NOCHMAL RATEN (JA/NEIN)?” 


INPUT 0$ 

IF 0Q$="NEIN” THEN GOTO 770 

NEXT I 

PRINT "LEIDER NICHTS MEHR DA” 

PRINT 

REM KKKRKKKKKK KK KT RT TR KT KT KK TE KT KT KK KK KT KT TI TE KK KT TE TE KK KK KK I N X 
REM * 5..Teil - Gesamtliste x 


REM KRKRKKKKKKKKK KK KT KT CK N KT IK KT KT KK KT KK KT TI I N 


PRINT "WOLLEN SIE EINE LISTE” 

PRINT "IHRER RATEVERSUCHE (JA/NEIN)?” 
INPUT 0$ 

IF 0$="NEIN” THEN G0OTO 900 

PRINT 

PRINT "SO HABEN SIE GERATEN” 

PRINT 

FOR J = 1 T06 

PRINT SS(J);" - "; 

PRINT AS(J);" ("; 

PRINT LS(J);")" 

NEXT ) 

PRINT 

PRINT "NUN IST SCHLUSS” 

REM KERRKKEKKKK KK KT KK TR KK CK CK KK KK N KT TE TR TR KT TE TR IK KT TE TR IK IR I I I KK I I KK 


REM * Programmende x 
REM KERKKKKKKK KK KT TR KT N KK CK KK KK KK KK KT KT IT IT IK TI TE TI TR TR I I I I I I I I I I N 


Er 


N na La en 
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Knacken Sıe die Zahlennuß 





Natürlich kennen Sıe das Spiel „Ich denke 
mir eine Zahl zwischen...“ Dieses Programm 
ist eine Computerversion davon. Die Maschi- 
ne „denkt“ sıch eine Zahl und Sie müssen ra- 
ten. 








Knacken Sie die Zahlennuß 


Für das Raten gibt es übrigens Strategien. 
Wir verraten Ihnen, wie Sıe schnell zum Ziel 


kommen. 
(o _ 
er 


Z 
= 
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) 
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Knacken Sie die Zahlennuß 


Zuerst aber wollen wir Ihnen das Pro- 
gramm erklären. Am Anfang haben wir einen 
kleinen Scherz eingebaut. 

Der Computer fragt, ob Sie wirklich spie- 
len wollen. Wenn Sie aber ”NEIN” sagen, 
brichter nıchtab, sondern läßt das Programm 
einfach weiterlaufen. 


Zahl aus dem Generator 


In Zeile 260 bekommt der Zufallszahlen- 
generator des Computers seinen Anfangs- 
wert. Natürlich sind die Zahlen nicht wirklich 
zufällig. Sie werden nach einer komplizierten 
Formel ausgerechnet. 

Die ‚Zufälligkeit“ der Zahlen hängt vom 
Anfangswert für die Formel ab. In unserem 
Programm bekommt der Computer eine An- 
fangszahl, die davon abhängt, wie lang der 
Computer schon eingeschaltet ist. 

Ab Zeile 320 wird nun aktuell eine Zufalls- 
zahl bestimmt. Die Zahl Ihrer Rateversuche 
merkt sich der Computer unter X. X be- 
kommt in Zeile 310 den Anfangswert 0. 

Zufallszahlen aus dem Computer liegen 
zwischen O und 1. Damit die Zahl größer 
wird, multiplizieren wir sie in Zeile 330 mit 
1000. 

Der Computer meldet jetzt auf dem Bild- 
schirm, daß er eine Zahl gefunden hat, und 
läßt Sıe raten. 


Bitte spielen Sie faır 


Sıe könnten natürlich das Programm kurz 


unterbrechen (mit BREAK), sich den Wert 
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Knacken Sie die Zahlennuß 





vonLansehen und würden dannnach CONT 
ım ersten Anlauf die richtige Zahl finden. Das 
ist aber nıcht gerade die feine Art. 

Raten Sıe also einfach. Der Computer sagt 
Ihnen dann, ob Ihre Zahl zu groß, zu kleın 
oder richtig ist. 


Raten Sıe mıt Methode 


Es gıbt allerdings eine Möglichkeit, die 
Anzahl der Versuche möglichst gering zu hal- 
ten. 

Stellen Sie genau den Bereich fest, in dem 
Sıe raten sollen. Am Anfang ıst das O bis 1000. 
Versuchen Sie es dann immer mit der Zahl, die 
genau in der Mitte liegt. In diesem Fall ist das 
500. 

Sagt der Computer beispielsweise, daß die 
gesuchte Zahl größer ist, haben Sie schon die 
Hälfte aller Möglichkeiten ausgeschlossen. 
Jetzt wählen Sie — in unserem Beispiel — die 
Hälfte des Bereiches 500 bis 1000, also 750. 
Mit dieser Methode finden Sie schnell eine 
Lösung und verblüffen Ihre Freunde. 
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Knacken Sie die Zahlennuß 





110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
+10 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


REM KRKEKKKRKKKÄK KK KK KT TE KK KK KT KK KK KT KK KT KK KK KK KK TE KK KK KK KK KK KK I U I 
REM * Nußknacker Programm Zahlenraten (45) * 
REM * x 
REM * 1. Teil - Basisdaten - Initialisierung x 
REM KKKKKKKKKKK KK KK KT KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK N NN 
PRINT "HALLO, HIER IST DAS” 

PRINT "NUSSKNACKER PROGRAMM" 

PRINT "MIT DEM SIE ZAHLEN” 

PRINT "RATEN KOENNEN" 

PRINT 

PRINT "WOLLEN SIE (JA/NEIN)?" 

INPUT AS 

PRINT 

IF AS="NEIN" THEN PRINT "PECH, SIE MUESSEN !!" 

PRINT 

LET L=RND(-TI) 


REM KKKKKKRKKKÄKK KK KK KK KT KK CT KK TE TK K TK TK K T K  TK TK K K TK T TK T K K  K K K K K K  K © 


REM * 2. Teil - Raten * 
REM KKKKKKKKKKK KK KK KK KT KK KK KK KK KT KT TE TE KK KK KK NK 
PRINT "ICH DENKE MIR JETZT EINE ZAHL" 

LET X=0 

LET L=RND(O) 

LET L=L*1000 

LET L=INT(L) 

PRINT 

PRINT "ICH HABE EINE ZAHL GEFUNDEN" 

PRINT "SIE LIEGT ZWISCHEN O0 UND 1000" 

PRINT 

PRINT "VERSUCHEN SIE ES MAL" 

INPUT P 

PRINT 

LET X=:X+1 

PRINT P 

PRINT 

REM KKKKKKKÄKK KK KK KK CK KT TE TE TE KT KK KK KK TE I U KK KK KK 


REM * 3. Teil - Auswertung x 
REM KKEKKKKKKK KK KT KT TI N TR TR IK KK KK TE KK KT KT KK KK KT KK KK TE KK KK KK I KK KK KK X 
IF P=L THEN GOTO 540 

IF P>L THEN GOTO 520 

PRINT "IHRE ZAHL IST ZU KLEIN” 

GOTO 380 

PRINT "IHRE ZAHL IST ZU GROSS” 

GOTO 380 

PRINT "TREFFER" 

PRINT "ANZAHL DER VERSUCHE: ";X 
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Analyse von Zeugnis oder Budget 





Die Untersuchung von Zahlenreihen lıe- 
fert Ihnen hauptsächlich statistische Werte. 
Das kann aber ganz nützlich sein, wenn Sıe 
etwa wissen wollen, wieviel Geld Sie durch- 
schnittlich ausgeben, oder wie dıe Durch- 
schnittsnote im Zeugnis aussieht. 


Analyse von Zeugnis oder Budget 


Also, ran an dıe Buletten, vertrauen Sıe Ih- 
re Zahlen dem Computer an. 
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Analyse von Zeugnis oder Budget 


Zuerst reservieren Sie im Speicher Platz für 
Ihre Zahlen. Sie werden unter W (für Werte) 
abgespeichert. 

100 Werte sieht die DIM-Anweisung in 
Zeile 210 vor. Wollen Sie mehr als 100 Zahlen 
analysieren, setzten Sie den Wert entspre- 


chend höher. 





Vergabe der Anfangeswerte 





Basıswerte erhalten dann die Variablen N, 
X, D, P, S. Sie nehmen später das Minimum, 
das Maximum, die Differenz zwischen Mini- 
mum und Maximum, die entsprechende pro- 
zentuale Differenz und die Summe auf. 

Die Anzahl der Werte, die Sie analysieren 
wollen, geben Sie in 280 an. Die Anzahl wird 
unter A gespeichert. 

In der Schleife ab Zeile 360 fordert das Pro- 
gramm von Ihnen die Werte an und speichert 
sıe gleich ım Feld W. Diese Schleife wird so oft 


durchlaufen, wie Sie Werte eingeben wollen 


ebenen Werte 





Sind alle Werte sicher „im Kasten“, beginnt 
die Auswertung Ihrer Zahlenreihe. In 510 be- 
ginnt eine Schleife, die so oft durchlaufen 
wird, wıe Werte vorhanden sınd. Die Schleife 
endet ın Zeile 540. 

Für jeden Wert bekommen Sıe auf dem 
Bildschirm eine Zwischenauswertung. Der 
Bildschirm wird erst wieder gelöscht, wenn 
alle Ergebnisse für den nächsten Wert festste- 
hen. 

Besonders interessant ıst natürlich, der 
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Analyse von Zeugnis oder Budget 








Durchschnittswert, der ın 522 ausgerechnet 
und unter M gespeichert wird. 

Sind alle Werte analysiert, und daskann bei 
vielen Werten eine ganze Weile dauern, gibt 
das Programm ab Zeile 624 die Schlußaus- 
wertung auf den Bildschirm. 


Ist das Programm zu langsam? 


Zur Beschleunigung des Programms kön- 
nen Sıe übrigens die Zeilen 524 bis 539 weg- 
lassen. Sie bekommen dann die Zwischenaus- 
wertung nicht auf den Schirm. Dafür steht der 
Endwert schneller zur Verfügung. 

Das können Sie übrigens auch elegant 
durch eine Abfrage am Anfang des Pro- 
gramms lösen, ob Zwischenwerte ausge- 
druckt werden sollen oder nicht. Abhängig 
von der Antwort überspringen Sıe mıt einem 
GOTO ın der Schleife die Zeilen für die Aus- 


gabe der Zwischenwerte. 
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Analyse von Zeugnis oder Budget 





110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
202 
2093 
204 
205 
206 
207 
208 
210 
212 
214 
216 
218 
219 
220 
230 
240 
250 
260 
270 
280 
230 
300 
310 
320 
322 
324 
330 
3&0 
350 
355 
360 
370 


REM 
REM 
REM 
REM 
REM 


KRERKKKRKKKK KK KK KK KK KK KK KK KK KK KK KT TR KK KK KK KK KK RK KK KK KK KK KK NN 


* Nußknacker Programm Zahlenreihen (414) « 
% * 
* 1. Teil - Begrüßung - Variable “ 
KRKRKKKKKKKN KK KK KK KK N KK KK KK KK KK KK TR KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK I K X 


PRINT "HALLO, HIER IST EIN" 

PRINT "NUSSKNACKER PROGRAMM" 
PRINT 

PRINT "SIE KOENNEN DAMIT" 

PRINT "ZAHLENREIHEN UNTERSUCHEN" 
PRINT 

PRINT "TYPISCHE ZAHLENREIHEN SIND: ” 
PRINT 

PRINT "BENZINVERBRAUCH PRO WOCHE" 
PRINT "EINKUENFTE PRO MONAT” 
PRINT "AUSGABEN PRO MONAT” 

PRINT "NOTEN IM ZEUGNIS" 

PRINT 


DIM 
LET 
LET 
LET 
LET 
LET 
REM 
REM 
REM 


Ww(100) 
N=65000 


O0 


EEE LZLS LER LS TEL ERS SD SS ES ZZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22; 


Anzahl der Werte x 
KRKKKKKRKKK KK KT KT TE TE TK TK TK T T TK E TK T TK TK TK T TK IK TK TK TK TK IK TK T T TK TK TK TN IK TK K TK K K  NK 


PRINT 

PRINT "WIEVIEL WERTE WOLLEN SIE" 
PRINT "EINGEBEN (MAX 100)?” 
INPUT A 

PRINT A 


REM 
REM 
REM 


PRINT 

PRINT 

PRINT 

PRINT "OK, GEBEN SIE JETZT DIE WERTE AN” 
PRINT "VERGESSEN SIE NICHT: DER COMPUTER” 


KRKKKKKRKKKKKKK KK KK KK CK KT KT TR KT KK KK KK KK TI KT IK KK KK KK KK KK KK X 


* Eingabe der Werte x 
KKKKKRKKKKKKK KK TITTEN II N I NK 





PRINT "WILL EINEN PUNKT STATT EINES KOMMAS" 


FOR 


I=1T0 A 


PRINT 


Fortsetzung auf der nächsten Seite ------------- -- -- 7777 > 
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Analyse von Zeugnis oder Budget 





380 
390 
400 
410 
420 
430 
440 
450 
460 
490 
500 
510 
511 
512 
513 
514 
516 
520 
522 
523 
524 
526 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
623 
624 
626 
631 
634 
635 
636 
637 
638 
639 
700 
710 
720 


REM KÄERKKKKKRRKRKK KK KT KK KT KT CK KT KK KK UT KT T K KK KK KK KK TU I NK 


% 


REM KRRKRRKRKKKK KK KK KK CK N KK KK KT KK KT KK KK KK KK KK KK KK KK KK KK KU I I X 


PRINT "WERT ";1I;" 7° 

PRINT 

INPUT W(I) 

PRINT 

PRINT "WERT ";1I;”" IST ";W(I) 
NEXT I 

REM * Auswertung 

PRINT 

LET S=0 

FOR I:1 TOA 

IF W{iI)<N THEN LET N=W(I) 

IF WII)>X THEN LET X=W(I) 

LET D=X-N 

LET 2=:X/100 

LET P=N/Z 

LET S=S+W(I) 

LET M=S/I 

PRINT 

PRINT "ZWISCHENAUSWERTUNG" 
PRINT 

PRINT "NUMMER DES WERTES: ";I1 
PRINT 

PRINT "WERT: ";W(I) 

PRINT "SUMME DER WERTE: ";S 
PRINT "DURCHSCHNITTSWERT: ";M 
PRINT "KLEINSTER WERT: ";N 
PRINT "GROESSTER WERT: ";X 
PRINT "DIFFERENZ MIN/MAX: ";D 
PRINT "PROZ. DIFFERENZ MIN/MAX: 
NEXT I 

PRINT 

PRINT "SCHLUSSAUSWERTUNG” 
PRINT 

PRINT "ANZAHL DER WERTE: ";A 
PRINT "SUMME DER WERTE: ";S 
PRINT "DURCHSCHNITTSWERT: ";M 
PRINT "KLEINSTER WERT: ";N 
PRINT "GROESSTER WERT: ";X 
PRINT "DIFFERENZ MIN/MAX: ";D 
PRINT "PROZ. DIFFERENZ MIN/MAX: 


REM KRRERRKKRKKERKKRKK KK KK KK KK KR KR KK KK KK KK KK KK KR I I I X 


REM * 


Programmende 


x 


REM KRRKERRRKKRRK KK KR KK KK KK KK KK NK A N A KK KR I KK I I N 





67 





5 
\ 
' 
N 
\ 
\ 
i 


Die Liter fließen durch den Auspuff 


Sie sollten über längere Zeit den Durch- 
schnittsverbrauch Ihres Autos beobachten. 
Daraus kann man viele Schlüsse auf Ver- 
schleiß und richtige Einstellung ziehen. 


Die Liter fließen durch den Auspuff 


Dieses Programm hilft Ihnen bei der Ana- 
lyse. Geben Sie einfach die Werte ein. Den 
Durchschnitt berechnet der Computer. 
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Die Liter fließen durch den Auspuff 








Zuerst müssen Sıe für die Analyse Platz im 
Speicher reservieren. Das passiert in Zeile 210. 
Das Feld W kann 100 Werte aufnehmen. 
Wenn Sıe mehr Werte verarbeiten wollen, 
müssen Sıe die Feldgröße entsprechend hö- 
her setzen. Sie legen damit nur die maximal 
mögliche Anzahl von Werten fest. 





Wieviel Werte wollen Sie verarbeiten? 





In Zeile 280 können Sie dann angeben, 
wıeviel Werte sıe aktuell eingeben wollen. 
Dabeı dürfen Sie den in 210 angegebenen 
Wert nicht übersteigen. 

In der Schleife ab Zeile 360 beginnt dann 
die Eingabe der Werte. Ihre Angabe, wieviel 
Werte Sıe analysieren wollen, ıst ja aus Zeile 
280 ın A gespeichert. 

Dieses A bestimmt dann in Zeile 360, wie 
oft dıe Schleife durchlaufen werden muß, da- 
mit Sıe alle Werte eingeben können. 

Das Programm nennt Ihnen bei jeder Eın- 
gabe die Nummer des nächsten Wertes und 
wiederholt den Wert auf dem Bildschirm. 


Eın Verbrauchswert pro Feldelement 





Jedes Element des Feldes W entspricht ei- 
nem von Ihnen eingegebenen Wert. Im ersten 
Element steht der erste Wert, im sechsten der 
sechste usw. 

Wenn alle Werte eingegeben sind, wenn al- 
so die Schleife A-mal durchlaufen wurde, be- 
gınnt die Auswertung bei Zeile 480. 

Dazu erhält zuerst die Variable, die die 
Summe aller von Ihnen eingegebenen Werte 
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Die Liter fließen durch den Auspuff 


aufnehmen soll (S wie Summe) als Anfangs- 
wert eine . 

Dann beginnt wieder eine Schleife, die so 
oft durchlaufen wird, wie Werte vorhanden 
sind. (Hier wirkt immer noch Ihre Eingabe 
aus Zeile 280.) 


Jetzt haben wir gleich den Durchschnitt 


Bei jedem Durchlauf wird ein von Ihnen 
eingegebener Wert zu der Summe der bisher 
zusammengezählten Werte addiert (Zeile 
520). Das Ergebnis muß man dann nur noch 
durch die Anzahl der Werte dividieren und 
schon steht der Durchschnittsverbrauch fest. 

Natürlich können Sie mit diesem Pro- 
an nicht nur den Durchschnittsver- 

rauch Ihres Autos feststellen, sondern den 
Durchschnittswert jeder beliebigen Zahlen- 
reihe. 
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Die Liter fließen durch den Auspuff 





110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2k0 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3460 
350 
355 
360 
370 
380 
390 
+00 
410 
420 
430 
4&0 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM KKERKRKKRKRKKKK KT TE TK TK KT TK KK KT KT IK KT KK TE TI KIT IK TE TE KT TI IT I I TI KK KK I I X 
REM * Nußknacker Programm Durchschnittsverbrauch (410) * 
REM x 
REM * 1. Teil - Begrüßung - Speicher * 
REM KKRKKKKKKKKRKK KT KT KK IK KK IK KK TR IK KK KT IK IK TI TE TI TI IK KK KK TK KK N IKT KK KK I TI TI KT I KK NK 
PRINT "HALLO, HIER IST EIN” 

PRINT "NUSSKNACKER PROGRAMM" 

PRINT "SIE KOENNEN DAMIT DEN” 

PRINT "DURCHSCHNITTSVERBRAUCH" 

PRINT "IHRES AUTOS AUSRECHNEN" 


DIM W(100) 
REM KERKWKKKKRRK KK KT TE TE TN TE TE KK IK KT TI KT KT KT IT IK IK KK KK TI KK IK KK KK KK I 
REM * Anzahl der Werte x 


REM KRRRKRKKKKRKKKK KK KK KK KK KK KH KK KK KK KT KK KK KK KT KK KT KK KK KIN 


PRINT 
PRINT "WIEVIEL WERTE WOLLEN SIE" 
PRINT "EINGEBEN (MAX 100)?" 


INPUT A 
PRINT A 
REM ESEL EZ ES ZELTE EZ EZ LS ELSE LES ZB ESS ELSE LS ZI SZ SEI ZI DES DSDS DSG ; 
REM * Eingabe der Werte “ 


REM KRRRRKKKKKKKKK KK KT KK KK KR KK KK TR RK KK KK KK KK KK KK X 


PRINT 

PRINT "OK, GEBEN SIE JETZT DIE WERTE AN” 
PRINT "VERBRAUCH IN LITERN” 

PRINT "PRO 100 KM" (PUNKT STATT KOMMA)" 


FOR I = 1 T0 A 

PRINT 

PRINT "WERT ";I;," 7" 

PRINT > 

INPUT W(I) 

PRINT 

PRINT "WERT ";1;" IST ";W(iL) 

NEXT I 

REM KRKKKKKKKKKK KK KK KT KK KT KT TE KT KK KK KK KT KK KK KT N I KK IK KK KK TI KK KK KK KK KK NK X X 
REM * Auswertung x 


REM KRRKKKKKKKKK KK KK KK KT KK CK KK KT KK KK KK KK KK KK KK KK KT IK KK KK KK KK KK KK I KK KK I KK 


PRINT 

PRINT "DIE AUSWERTUNG: ” 

PRINT 

LET S=0 

FOR I:1 TO A 

LET S=S+W(I) 

NEXT I 

PRINT "GESAMT: ";S;" L *** DURCHSCHNITT: ";S/A;" L" 


u ne 
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Angeln Sie nach der richtigen Zahl 








Trainieren Sıe Ihre kleinen grauen Gehirn- 
zellen mit diesem Programm. Wenn Sie sich 
wirklich anstrengen, kommen Sie ganz schön 
in’s Schwitzen. 





Angeln Sie nach der richti 


In den dreı Grundrechenarten stellt Ihnen 
der Computer immer neue Fragen. Durch- 
einander natürlıch. 





Angeln Sie nach der richtigen Zahl 


Zuerst können Sıe selbst den Schwierig- 
keitsgrad für die Rechnerei festlegen. Am An- 
fang sollten Sie sich mit kleinen Zahlen be- 
gnügen. 

Das ist anstrengend genug. Später, wenn 
Sıe mıt den kleinen Zahlen gut klar kommen, 
können Sıe auch im Schwierigkeitsgrad wei- 
ter nach oben klettern. 





Das ist anstrengender als laufen 


Oder, wenn Sıe sich zu regelmäßigem 
Kopfrechnen durchringen können, steigern 
Sie einfach den Schwierigkeitsgrad täglich um 
1. Eine Stunde Kopfrechnen ist übrigens min- 
destens so anstrengend wie ein 1000-Meter- 
Lauf. Viel Erfolg. 

Falls Sie den Schwierigkeitsgrad nicht ın- 
nerhalb der erlaubten Grenzen angeben, 
müssen Sıe die Eingabe wiederholen. 


Beginnen Sie mit 10 


Eine Antangszahl der Rechnerei ist immer 

10 (Z). Mıt A zählt man die Anzahl der Re- 

chenoperationen. Der Wert von A wird aus- 

a wenn Sıe sıch verrechnen. Sie be- 

ommen dann die Anzahl der richtig ausge- 
führten Rechnungen genannt. 





Führen Sie Buch über Ihre Erfol 





Stellen Sie Ihren persönlichen Rekord auf 
und notieren Sıe sich dafür Schwierigkeits- 
grad und erreichte Punktzahl. 
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Angeln Sie nach der richtigen Zahl 


Ab Zeile 320 wird dann zufällig eine Zahl 
für die weitere Rechnerei gewählt und mit 
dem Schwierigkeitsgrad multipliziert. 

Die präsentiert Ihnen dann der Computer 
und läßt Sie damit Addieren, Subtrahieren 
oder Multiplizieren. 


Die Rechenart bestimmt der Computer 





Die Rechenart hängt mit der Größe der 
bisher errechneten Zahl zusammen. Das Pro- 
gramm sorgt dafür, daß sie nicht zu groß und 
nicht zu klein wird. 

Multipliziert wird ın Zeile 430, addiert ın 
Zeile 460 und subtrahiert in Zeile 490. Ihre 
Eingabe wird dann ın Zeile 505 angefordert. 

In Zeile 510 wird Ihre Lösung geprüft. War 
Sie richtig, bekommen Sie eine neue Aufgabe, 
war sıe falsch, nennt der Computer Ihnen die 
errechnete Punktezahl. 
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Angeln Sie nach der richtigen Zahl 





100 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2&0 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
«70 
480 
490 
500 
505 
510 
515 
520 
530 


REM KKARRKKKKKKKKKE RT KK KT KK KK KK KK KK KK KK KK KT KK KK KK KK KK KK I KK KK KK I I I 


REM * Nußknacker Programm Kopfrechnen (47) x 
REM * x 
REM #* 1. Teil - Begrüßung - Schwierigkeit * 


REM KRRKRKKKKRKKKKR KK AK CK KK KT KK KK KK KK KK KK KT N TE KT KK KK KK IK KK KK I N XS 


PRINT "HALLO, HIER IST DAS" 
PRINT "NUSSKNACKER PROGRAMM” 
PRINT "ZUM TRAINIEREN DES” 

PRINT "* KOPFRECHNENS %*” 

PRINT 

PRINT "SCHWIERIGKEITSGRAD (10 bis 1000)?" 
INPUT S 

IF S>9 AND S<1001 THEN GOTO 300 
PRINT "FALSCHE EINGABE" 

PRINT "VERSUCHEN SIE ES NOCHMAL” 
GOTO 200 


REM KRKRKKKKKKKKK KK KK KK KK KK TR IK IKT KK KK KK N I KK TE KK KT KK KK KK KK KK IK N I N X 


REM * 2. Teil - Rechnen x 
REM KKERKKKKKKKK KK KT KT TKTK TK TK K T TK TK TK TIK TK TN TK TK IK T I TK TK K TK TK TK K TK KK TK TK IK TK TK IK K K  I R 
N=RND(-TI) 

LET Z=10 

LET A=0 

LET N=RND(D) 

LET N=N#S 

LET N=INT(N) 

LET A=:A+1 

PRINT 

PRINT "DIE ZAHL IST: ";Z 

PRINT 

IF Z<=S THEN GOTO 450 

IF Z>S*100 THEN GOTO 480 

PRINT "MULTIPLIZIEREN SIE MIT ";N 

LET Z=Z*N 

GOTO 500 

PRINT "ADDIEREN SIE ";N 

LET Z=Z+N 

G0OTO 500 

PRINT "SUBTRAHIEREN SIE ";N 

LET Z=Z-N 

PRINT 

INPUT X 

IF X=Z THEN GOTO 330 

PRINT 

PRINT "FALSCH *; 

PRINT "RICHTIG GELOESTE AUFGABEN: ";A-1 











Vorsteuer, kein Problem 





Wenn Sie viel mit Mehrwertsteuer zu tun 
haben, kennen Sie die Notwendigkeit, den 
MwSt.-Anteil aus einem Bruttobetrag her- 
auszurechnen und dann noch längere Listen 
zu addieren. 


Vorsteuer, kein Problem 


Genau dieses Problem löst für Sıe unser 
ee Vertrauen Sie ihm getrost die 
Rechnerei an. 
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Vorsteuer, kein Problem 








Selten wird bei kleinen Beträgen auf der 
Rechnung der Mehrwertsteueranteil geson- 
dert ausgewiesen. Da steht dann lapidar: „In- 
klusive soundsoviel Prozent Mehrwertsteu- 


cc 


er .„ 


Was tut man nicht für’s Finanzamt! 


Für die Buchhaltung und für’s Finanzamt 
braucht man dann aber doch Brutto- und 
Nettobetrag sowie MwSt.- Anteil gesondert. 

Genau diese Rechnerei nımmt Ihnen unser 
Programm ab. Wenn Sie gleichzeitig noch 
mehrere Beträge aufaddieren wollen, das 
schafft das Programm ganz nebenbei. 


Ein Drucker schafft Belege 


Besonders sinnvoll ıst es, einen Drucker 
anzuschließen. Sie haben dann gleich einen 
Beleg, wenn Sie die Ausgabeanweisung von 
„Bildschirm“ auf „Drucker“ ändern. Oder Sie 
lassen beides parallel laufen. 

Das Programm verlangt von Ihnen zuerst 
die Angabe des Mehrwertsteuersatzes in Pro- 
zent. Den geben Sıe über die Tastatur ein. 





Geben Sie jetzt die Bruttowerte ein 


Jetzt können Sie die eigentlichen Werte 
eingeben. Von Ihnen kommen über die Tasta- 
tur die Bruttowerte. 

Der Computer rechnet den Nettobetrag 
aus und anschließend den Mehrwertsteu- 
eranteil. Komplett erhalten Sie auf dem Bild- 
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Vorsteuer, kein Problem 


schirm Originalwert, Nettowert und den 
Mehrwertsteueranteil. 


Addiert wird gleich mit 


Gleichzeitig wird summiert. Alle von Ih- 
nen eingegebenen Werte addiert der Compu- 
ter. Neben der Bruttosumme erhalten Sıe 
auch die Angaben wie beim Einzelwert. 

Wenn Sıe alle Zahlen eingegeben haben, 
können Sıe das Programm durch Eingabe von 
99999 beenden. Wir wünschen lustiges Rech- 
nen! 
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Vorsteuer, kein Problem 








110 
120 
130 
1460 
150 
160 
170 
180 
190 
200 
210 
220 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
+70 
475 
480 
430 
500 
510 
520 
530 
540 
550 








REM KRRKRKRRKKKKKKK KK RK KK KK CK KK KK KK KK KK KK KK RK KK X 


REM %* Nußknacker Programm Anteil Mwst. (415) * 
REM * x 
REM * 1. Teil - Basisdaten - Mwst-Satz x 


REM KRRRRRK KR EKRKEKKKKKKKKKIKKKKKKTKRKIKKKKKRI RN 
PRINT "HALLO, HIER IST DAS” 

PRINT "NUSSKNACKER PROGRAMM" 
PRINT "DASS GANZE ZAHLENKOLONNEN” 
PRINT "ADDIERT UND DABEI DIE” 
PRINT "MEHRWERTSTEUER AUSWIRFT" 
PRINT 

PRINT "EINGABE BRUTTOWERTE”" 

PRINT "PROGRAMMENDE MIT 99999” 
PRINT 

PRINT "WIE IST DER MWST-SATZ” 
PRINT "IN PROZENT ?" 


INPUT M 

LET A=0 

LET S=0 

REM KKARKKKKKKK KK KT TI LK KT N KT KK TE KT IKT TI TE KK KT TE KK KK TI KT IK IK TI I KK I I NK 
REM * 2. Teil - Eingabe der Werte/Berechnung x 
REM KERKKKKRKRKKEK KT TR TR TR KT TI TI KK TE KK KK KT KT IK TE KK TE KK TE TE KK TH KT KT KK TI I TI TI IK KK N I NK 
LET A=A+1 

PRINT "GEBEN SIE BRUTTOWERT ";A;" EIN” 

INPUT W 

IF W=99999 THEN GOTO 550 

PRINT 

PRINT "NUMMER DES WERTES: ";A 

PRINT 


PRINT "BRUTTOWERT: ";W z 
LET N=W/(1+M/ 100) 

PRINT "NETTOWERT": ";N 

LET X=W-N 

PRINT "MEHRWERTSTEUER-ANTEIL: ";X 
LET S=S+W 

LET W=S 

PRINT 

PRINT "SUMME BRUTTOWERT: ";W 

LET N=W/(1+M/100) 

PRINT "DAVON NETTOWERT": ";N 

LET X=W-N 
PRINT "DAVON MEHRWERTSTEUER-ANTEIL: ";X 
PRINT 


GOTO 380 
REM KRRARRKAKKERKKKKRKKKKKKURKR RR KK ERKKKKKKKKAKUN N 








/9 








Mehrwertsteuer, kein Problem 


Wenn Sie selbst mehrwertsteuerpflichtig 
sind, müssen Sıe zu jedem Betrag die Mehr- 
wertsteuer ausrechnen und sie zum Nettobe- 
trag addieren. Das hält ganz schön auf, beson- 
ders wenn gleichzeitig die Beträge zu addie- 
ren sind. 


Mehrwertsteuer, kein Problem 


Genau dieses Problem löst für Sıe unser 
Programm. Vertrauen Sie ıhm getrost die 
Rechnerei an. 





Mehrwertsteuer, kein Problem 





Ganz schön lästig ist die Mehrwertsteuer, 
besonders, weil man nichts davon hat als Ar- 
beit. Das Geld bekommt doch das Finanz- 
amt. Interessant ıst eigentlich nur der Netto- 
betrag. 








zen ist kein Kraut gewachsen 


Doch was hilft alles Lamentieren. Die 
Rechnerei muß sein, ob man nun Lust hat 
oder auch nicht. 

Genau diese Rechnerei nımmt Ihnen unser 
Programm ab. Wenn Sie gleichzeitig noch 
mehrere Beträge aufaddieren wollen, das 
schafft das Programm ganz nebenbei. 


Ein Drucker schafft Belege 


Besonders sinnvoll ıst es, einen Drucker 
anzuschließen. Sie haben dann gleich einen 
Beleg, wenn Sie die Ausgabeanweisung von 
„Bildschirm“ auf „Drucker“ ändern. Oder Sie 
lassen beides parallel laufen. 

Das Programm verlangt von Ihnen zuerst 
die Angabe des Mehrwertsteuersatzes in Pro- 
zent. Den geben Sie über die Tastatur ein. 


Geben Sie jetzt die Nettowerte ein 


Jetzt können Sıe die eigentlichen Werte 
eingeben. Von Ihnen kommen über die Tasta- 
tur die Nettowerte. 

Der Computer rechnet den Bruttobetrag 
aus und anschlieffend die Mehrwertsteuer. 
Komplett erhalten Sie auf dem Bildschirm 


81 


Mehrwertsteuer, kein Problem 


Originalwert, Bruttowert und die Mehrwert- 
steuer. 


Addiert wird gleich mit 


Gleichzeitig wird summiert. Alle von Ih- 
nen eingegebenen Werte addiert der Compu- 
ter. Neben der Nettosumme erhalten Sie auch 
die Angaben wie beim Einzelwert. 

Wenn Sie alle Zahlen eingegeben haben, 
können Sie das Programm durch Eingabe von 
99999 beenden. Wir wünschen lustiges Rech- 


nen! 





cn 
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Mehrwertsteuer, kein Problem 








110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
+70 
475 
480 
490 
500 
510 
520 
530 
540 
550 


REM KRARKKKKKKKKK KR KK KK KK KK KK KK KK KK KK KT KK KK IK KK KK KK KK I IK KK KR IK X 


REM * Nußknacker Programm Mehrwertsteuer (416) “ 
REM * x 
REM * 1. Teil - Basisdaten - Mwst-Satz “ 


REM KRKRKKKKKKKKK KK KK KK KT KT KK KK IK TE KK KK KT KK N IK KK KK KK KK U U I N 


PRINT "HALLO, HIER IST DAS" 
PRINT "NUSSKNACKER PROGRAMM" 
PRINT "DASS GANZE ZANLENKOLONNEN” 
PRINT "ADDIERT UND DABEI DIE” 
PRINT "MEHRWERTSTEUER AUSWIRFT" 
PRINT 

PRINT "EINGABE BRUTTOWERTE" 
PRINT "PROGRAMMENDE MIT 99999” 
PRINT 

PRINT "WIE IST DER MWST-SATZ" 
PRINT "IN PROZENT ?” 


INPUT M 
LET A=0 
LET S=0 
REM KKEKKKKKRKKKKK KK KK KK KT KK KT TR TE KK KK KK KT KK KT KT TE KT TR IK IK KK KK TI KK KK KK KK N 
REM * 2. Teil - Eingabe der Werte/Berechnung x 


REM KAREL K N 
LET AzA+1 

PRINT "GEBEN SIE NETTOWERT ";A;" EIN” 
INPUT W 

IF W=99999 THEN GOTO 550 

PRINT 

PRINT "NUMMER DES WERTES: ";A 
PRINT 

PRINT "NETTOWERT: ";W 

LET N=W*(1+M/100) 

PRINT "BRUTTOWERT”: ";N 

LET X=N-W 

PRINT "MEHRWERTSTEUER: ";X 

LET S=S+W 

LET W=S 

PRINT 

PRINT "SUMME NETTOWERT: ";W 

LET N=zW*(1+M/100) 

PRINT "DAZU BRUTTOWERT": ";N 
LET X=N-W 

PRINT "DAZU MEHRWERTSTEUER: ";X 
PRINT 


G60TO 380 
REM KRRKERRERKKKKR KK KKKKKKKKRKKKKRKKKKK KK KK N 
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Elektronischer Würfelbecher 


Einen elektronischen Würfelbecher haben 
Sie mit diesem Programm. Maximal acht 
Würfel passen hinein und natürlich können 
je jedes Würfelauge auf dem Bildschirm se- 

en. 


Elektronischer Würfelbecher 


Austricksen können Sie Ihre Mitspieler mit 
diesem Programm nicht. Und wenn Sie wirk- 
lich mal ein paar Sechser haben? Zufall! 





e 
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Elektronischer Würfelbecher 








Zufallszahlen aus dem Computer sind üb- 
rıgens nicht wırklich zufällig. Sie werden nach 
einer komplizierten Formel berechnet, der 
man einen Anfangswert geben muß. Danach 
kommen die Zahlen ziemlich durcheinander 
aus dem Computer gepurzelt. 

Geben Sıe also zweimal die gleiche Zahl als 
Anfangswert an, so bekommen Sie später 
auch die gleichen „zufälligen“ Zahlen. Das 
Problem ist also, immer wieder unterschiedli- 
che und „zufällige“ Anfangszahlen zu finden. 


Zufall hängt von der Laufzeit ab 


Das ıst ın Zeile 260 so gelöst, daß der Com- 
puter auf eine Speicherzelle zurückgreift, die 
abhängig von der bisherigen Laufzeit der Ma- 
schine ıst. 

Damit haben Sie also den Zufall in Ihren 
elektronischen Würfelbecher einprogram- 
miert. Vorher legen Sie mit der INPUT-An- 
weısung in Zeile 240 noch die Anzahl der 
Würfel fest, die sich der Computer unter WA 
(Würfelanzahl) merkt. 


Strenge Kontrollen bei der Würfelanzahl 


Dann brauchen Sıe Platz auf dem Bild- 
schirm (Zeile 300) und schon rollen die Wür- 
fel. Die ın Zeile 330 beginnende Schleife wird 
so oft durchlaufen, wıe Würfel im elektroni- 
schen Würfelbecher sınd (WA). 

Damit diese Schleife übrigens nicht zu oft 
durchlaufen wird, oder falls sogar ein Narr ei- 
ne negatıve Würfelanzahl eingegeben hat, 
prüft das Programm in Zeile 250 genau, ob die 


85 


2 Nah sehe de le a ev za na Bi mann dan a a ac En na 


Elektronischer Würfelbecher 


Anzahl der Würfel mıt den Spielregeln über- 
einstimmt. 

In unserer Schleife ab 330 fordert das Pro- 
un jetzteine Zufallszahl an. Diese Zahlen 
jegen immer zwischen O und 1. Um also eine 
Zahl im richtigen Bereich zu bekommen, 
muß man mit 10 multiplizieren. 


Würfeln hinter dem Komma? 


Die Stellen hinter dem Komma interessie- 
ren nıcht, oder haben Sie schon einmal einen 
Würfel mit 2.34 Augen gesehen? Alle Zahlen 
hinter dem Komma werden durch INT abge- 
schnitten. 

Jetzt muß man nur noch feststellen, ob die 
Zufallszahl wirklich für das Würfeln in Frage 
kommt. Schließlich interessieren da nur Zah- 
len zwischen 1 und 6. 

Diese Prüfung erfolgt in Zeile 370. Falls die 
Zahl unseren Anforderungen nicht ent- 
spricht, vergessen wir sıe a und fordern 
ın Zeile 340 eine neue an. 


Für jedes „Auge“ ein Stern 


Ist die Zahl jedoch akzeptabel, wird sıe ın 
der Schleife ab Zeile 410 bildlich dargestellt. 
Für jedes Auge erscheint ein * auf dem Bild- 
schirm. 

Noch ist die in Zeile 310 begonnene Schlei- 
fe nicht beendet. Sind mehrere Würtel ım 
elektronischen Würfelbecher, fällt jetzt der 
nächste Würfel aus dem Becher. 

Interessant ist übrigens noch ein Blick auf 
das Semikolon in Zeile 420. Es verhindert, 
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Elektronischer Würfelbecher 


daß die einzelnen Sterne untereinander ste- 
hen. Damit aber die Sternchen des nächsten 
Durchgangs nicht auch noch neben die „Au- 
gen“ dieses Durchgangs geraten, gehen wir 
mit der PRINT-Anweisung in Zeile 440 ın die 
nächste Zeile. Es folgt noch eine Leerzeile 
(450), 

Mit NEXT A in 460 ist dann der Durch- 
gang für einen Würfel beendet. Sind mehrere 
Würfel da, durchläuft das Programm die 
Schleife, die in 330 begonnen hat, noch eın- 
mal. 

Landet das Programm ın der Zeile 470, 
sind die Würfel gefallen. Für jeden Würfel im 
Becher sind die „Augen“ in einer Zeile auf 
dem Bildschirm. 


Wieviel Würfel in der neuen Runde? 





Da bleıbt dem Programm nur noch festzu- 
stellen, ob noch weiterer Bedarf besteht. Sa- 
gen Sie JA, wenn Sie noch weiter spielen wol- 
len. Geben Sıe etwas Anderes als JA eın, 
schmollt der Computer mit "DANN EBEN 
NICHT“. 

Falls Sie vor jedem neuen Wurf die Anzahl 
der Würfel neu bestimmen wollen, sollten Sie 
ın Zeile 520 die 300 ın eine 210 ändern. Der 
Computer fragt Sie dann, mit wieviel Wür- 
feln Sıe spielen wollen. 

Lassen Sıe das Programm aber unverän- 
dert, können Sie die Zahl der Würfel nıcht 
mehr ändern, wenn sie einmal festliegt. 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
4930 
500 
510 
520 
530 
540 


Elektronischer Würfelbecher 














REM KEKKKKKKKK KK KK KK KK KK KK KK KT KK KK KT IK KK KK KK KK KK KK KK KK I KK XS 


REM %£ Nußknacker Programm Wwürfelbecher (42) x 
REM * % 
REM * 1. Teil - Basisdaten - Initialisierung x 


REM KKRKKKKKKKKK KK KT KT TC KT KK KK CK KT KK KK KK KK KK KK KK KK KK KK I KK 


PRINT "HALLO, HIER IST DAS” 
PRINT "NUSSKNACKER PROGRAMM” 
PRINT "MIT IHREM PERSOENLICHEN" 
PRINT "WUERFELBECHER" 

PRINT 

PRINT "MIT WIEVIEL WUERFELN” 
PRINT "WOLLEN SIE SPIELEN?" 
PRINT "MAXIMAL ACHT STUECK!" 
INPUT WA 

IF WA>B OR WA<1 THEN GOTO 230 
LET L=RND(-TI) 


REM KKKKKKKKK KK KK KT KK KK KK KT KT KT IK N TI IT IK KT KK KT KK KK KK KK KK I 


REM * 2. Teıl - Die Wurfel rollen x 
REM KKRKKKKKKKKK KK KT KT KT KT KK KK KK TE KT KT KT KK KK KK KK TE TR I KK I I K X 
PRINT 

PRINT "DIE WUERFEL ROLLEN" 

PRINT 

FOR A = 1 TO WA 

LET L=RND(O) 

LET L=L*%10 

LET L=INT(L) 

IF L>6 OR L<1I THEN GOTO 340 

REM KKKKKRKKRKK KK KK CK KK KK CK CK KT CK KK KK KK KK CK KK KK KK KT KK KK KK KK KK KK I KK I I I I 


REM * 3. Teıl - Auf den Bildschirm x 
REM KRRKKKKKK KK KK KK CN KK KK KK KK KK KT TK TN KK  T TK K TK K K K K K K KTK K K K K K  I IK NK 
FOR I = 1 TOL 

PRINT "* "; 

NEXT I 

PRINT 

PRINT 

NEXT A 

REM KKKKKKKKKK KK KK KK KK KK KK KT KK KT KK KK TE KK TE KK U I NK 


REM %* 4. Teil - Wiederholung oder Ende x 
REM KRKKKKKKKK KK KK T KK TE KT KT KK KK KK KK KT N KK KK KK IK 
PRINT "WOLLEN SIE NOCHMAL WUERFELN (JA/NEIN)?" 

INPUT AS 

IF AS=" JA” THEN GOTO 300 

PRINT 

PRINT "DANN EBEN NICHT" 











i Machen Sie keinen Fehler 








Wer möchte nicht gerne ım Lotto gewin- | 
nen? Ob Sıe in Zukunft mit diesem Pro- | 
gramm mehr Glück haben werden, wissen 
wir nicht, aber wir hoffen es für Sie. 


Machen Sie keinen Fehler 


Allerdings benutzen wir dieses Programm 
auch und hoffen für uns noch mehr. Wem mag 


die Glücksfee hold sein? 


FI 


 Y 
=> 
ITS 


O 


SW 


2 


Machen Sie keinen Fehler 


Mit Sicherheit machen Sie einen Fehler, 
wenn Sıe glauben, der Computer könne Ih- 
nen die kommenden Lottozahlen ausrech- 
nen. Die Wahrscheinlichkeit spricht dagegen. 

Eın Fehler ıst es aber nicht, den Computer 
so viele Tips ausrechnen zu lassen, bis einer 
dabei ıst der Ihnen gefällt. 





Ein neuer Tip für jede Woche 


So haben Sie auch jede Woche einen neuen 
Tıp und brauchen keine Angst zu haben, daß 
Sie malden Lottoschein abzugeben vergessen 
haben. Denn das kann nur dann ärgerlich 
sein, wenn Sie immer den gleichen Tip benut- 
zen. 

Im Programm wird anfangs Ihre persönli- 
che Glückszahl ausgerechnet. Dazu benutzt 
der Computer Ihren Geburtstag und das Ta- 
gesdatum. 

Im ersten Teil fordert er dazu die Daten an, 
im zweiten Teil berechnet er dann die Zahl ab 
Zeile 340. 





Der Anfang für den Zufall 


Mit dieser Zahl bekommt der Computer 
einen Anfangswert für den Zufallszahlenge- 
nerator. Den braucht er, damit er immer un- 
terschiedliche Zahlen generiert. 

Für die Lottozahlen wird dann Platz im 
Speicher reserviert. Sechs Zahlen können Sie 
in eınem Feld unterbringen und den Platz da- 
für haben Sie ım Feld Z. 

In der ın Zeile 450 beginnenden Schleife 


go 


Machen Sie keinen Fehler 


werden dann die Zufallszahlen auf Ihre Lot- 
to- Tauglichkeit hin untersucht. 

Die Schleife wird sechsmal durchlaufen, 
einmal für jede Zahl eines Feldes. Da die Zu- 
fallszahlen zwischen O und 1 liegen, müssen 
Sie zuerst mit 100 multipliziert werden (Zeile 
470), um überhaupt ın den Lotto-Bereich zu 
kommen. 








Die Guten in’s Töpfchen, die Schlechten ... 


Erlaubt sind aber nur Zahlen zwischen 1 
und 49. Das wird ın Zeile 500 geprüft. Unpas- 
sende Zahlen vergißt der Computer einfach 
und holt sıch ab Zeile 460 eine neue Zahl. Ist 
dıe Zahl aber ım Lottobereich, wırd Sie vor- 
läufig akzeptiert. 





Keine zwei Kreuze auf einem Feld 





Sie hat allerdings noch eine Prüfung zu be- 
stehen. In der Schleife ab Zeile 510 wird Sie 
mit allen bereits akzeptierten Zahlen verglı- 
chen. Kam die Zahl schon einmal vor, vergißt 
der Computer sıe ebenfalls und macht einen 
neuen Versuch. Schließlich können Sie auf 
dem Lottoschein ja nıcht zwei Kreuze über- 
einander machen. 

Sind schließlich sechs Zahlen gefunden, 
schreibt der Computer sie in der ab Zeile 630 
beginnenden Schleife auf den Bildschirm. 

Mit der Eingabe in Zeile 720 können Sıe eı- 
nen neuen Tip anfordern oder das Programm 
beenden. 
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Machen Sie keinen Fehler 








100 REM KKEKKAKKKKKKK KK CT KK KK CK K KK KK KK KK KK KK TE N KK KK KA KK KK KK I A I I KK a ı a 
110 REM * Nußknacker Programm LOTTOZAHLEN (41) x 
120 REM * * 
130 REM # 1. Teil = Basisdaten x 
140 REM KKKKKKKKKKKK IKT KK KK KK KT KK KK KK KK IK KK TE TE TE KK KK KT TH KT KK KK KK KK N I I I KK KK KK X 
150 PRINT "HALLO, HIER IST DAS" 

160 PRINT "NUSSKNACKER PROGRAMM" 

170 PRINT "FUER IHRE PERSOENLICHEN" 

180 PRINT "LOTTOZAHLEN" 

190 PRINT 

200 PRINT "ZUERST ERRECHNEN WIR IHRE" 

210 PRINT "PERSOENLICHE GLUECKSZAHL" 

220 PRINT 

230 PRINT "GEBEN SIE IHR GEBURTSJAHR AN" 

2&0 INPUT G)J 

250 PRINT "GEBEN SIE IHREN GEBURTSTAG AN (1-31) 

260 INPUT GT 

270 PRINT "WELCHEN MONAT HABEN WIR HEUTE (1-12)? 

280 INPUT MO 

2930 PRINT "DER WIEVIELTE IST HEUTE (1-31)?" 

300 INPUT TA 

310 REM KAKKKKKKKKKKK KK KT KK KT TI KK KK KK KT IK TI KK TI KK KK IK KK KK KK KK KK KK KT IK KK KK KK A KK KK I X 
320 REM * 2. Teil - persönliche Glückszahl x 
330 REM KKKKKKKKKKKK IKK TITTEN X 
3&0 LET GZ=:GT-TA 

350 LET 62:62Z*6G) 

360 LET GZ=:G6Z/MO 

370 LET GZ=ABS(GZ) 

380 PRINT 

390 PRINT "IHRE GLUECKSZAHL IST: ";62Z 

«00 L=RND(-G2) 

410 REM KKKKKKKKKKKKTK IKT KT TI TI KK KT TE TE T TK  TK TK K TK TK TK T TK IK I K TK  TK K K IK K K K K K a 
420 REM * 3. Teil = Ausrechnen der Lottozahlen x 
430 REM KKEKKKKKKÄKKK KK KK KK KT KT TE KK KT KK KK KK TI KK IK KK KK TI KK IK KK TI IK I KK KK KK N I 
440 DIM 2(6) 

«50 FOR I = 1 T06 

460 LET L=RND(O) 

470 LET L=L*100 

480 LET L=INT(L) 

490 PRINT L 

500 IF L>&9 OR L<1 THEN GOTO 460 

Fortsetzung auf der nächsten Seite -------------------------- > 
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Machen Sie keinen Fehler 








FOR J = ı Toll 
IF L=Z(J) THEN GOTO 460 


NEXT ) 
z(I)=L 
NEXT I 
REM KKKKKKKK KK KK TC KK KK CK KK KT KK KK KK KK KK KK KK KK KT TH T K  TK KK KK KT KK KK I I U 
REM * 4. Teil - Ausgabe der Lottozahlen x 


REM KARA KK KK I KK KK KA KT IK I KK KK KK RK KK I 


PRINT 

PRINT 

PRINT "IHR PERSOENLICHER LOTTOTIP:" 

PRINT 

FOR K = 1T06 

PRINT Z(K);" "; 

NEXT K 

PRINT 

PRINT 

REM KR  KK K X 


REM *% 5. Teil - Wiederholung oder Ende ? * 
REM KRKKKKKKKK KK KK KT KK KK KT I KK IK IK IK I N IK KT TI KK KK KK IK KK KK A KK I I I I 


PRINT "WOLLEN SIE NOCH EINEN TIP (JA/NEIN)?" 


INPUT AS 
IF A$="JA" THEN GOTO 450 
PRINT 


PRINT "DANN EBEN NICHT" 


REM KARKKKKKKK KK TH TH KH N KK KT KK KT KT I I IT I I I I I I 


REM * Programmende x 
REM KRKKKKKK KK KK KK KT KK KK KK KK IK KK IK KK KK KK KT TI KT IK I KK I I I I KK KK I I X 


PERSOENLICHER LOTTOTIP: 


126 39 4 17 


Diesen Tıp haben wir erhalten, wie sieht Ihrer aus ? 





Yin 
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BASIC zum Nachschlagen 


Hier haben wir noch einmal alle Schlüssel- 
worte des Commodore-64-Basıc in alphabe- 
tischer Reihenfolge zusammengestellt und 
mit kurzen Erklärungen und kleinen Beispie- 
len versehen. Sie können in diesem Teil schnell 
malnachschlagen, wenn Ihnen die Bedeutung 
eines Befehls nicht geläufig ist. 





ABS — das immer 





positive Ergebnis 


Mit dieser Funktion können Sie den Com- 
puter den Absolutbetrag eines Wertes aus- 
rechnen lassen. Das Ergebnis ist immer eine 
positive Zahl. Der Absolutbetrag von 0 ıst 0. 

Beispiel: Die Anweisungen PRINT 
ABS (3) und PRINT ABS (-3) nn als 


Ergebnis jeweils eine 3 auf den Bildschirm. 


AND — das logische UND 


Die wichtigste Aufgabe erledigt das 
Schlüsselwort AND in der IF-Anweısung. 
Da stellen Sie ja dem Computer eine Bedin- 
gung. Wenn die Bedingungerfüllt ist,dann tue 
das und das. Nun kann es aber auch notwen- 
dig sein, die Ausführung einer Anweisung an 
mehrere Bedingungen zu knüpfen. Sie soll 
nur dann ausgeführt werden, wenn alle Be- 
dingungen erfüllt sind. Dafür gibt es das 
Schlüsselwort AND. 


... dann und nur dann 


Beispiel: IFEA>10 AND A<15THEN 
PRINT A. Bei dieser Anweisung bekommen 
Sie den Wert von A nur auf den Bildschirm, 
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wenn er größer als 10 und kleiner als 15 ist. 
Der Befehl PRINT A wird also nur dann aus- 
geführt, wenn A einen Wert zwischen 11 und 
14 hat. 


ASC — welche Nummer hat der Buchstabe? 


Wir haben schon den Befehl CHR$ ken- 
nengelernt. ASC ist die Umkehrung davon. 
Das Argument für die Funktion ASC ist eine 
Zeichenfolge. Das Ergebnis ist die Nummer 
des ersten Zeichens. Wenn das erste Zeichen 
also beispielsweise ein A ist, liefert ASC als 
Ergebnis 65. 

Beispiel: Die Anweisung PRINT 
ASC ("ABCD’”) schreibt auf den Bildschirm 
dıe Zahl 65. PRINT ASC (””) schreibt eine O 
auf den Bildschirm. 


ATN — der Arcustangens 


Mit dieser Funktion können Sie den Com- 
puter den Arcustangens in Bogengraden aus- 
rechnen lassen. 

Beispiel: Die Anweisung PRINT 
AIN (0.5) bringt richtig den Wert 
0.46364761 auf den Bildschirm. 


CHR$ — Buchstaben aus Zahlen 


Jedes Zeichen kennt der Computer nur 
unter einer Nummer. A hat beispielsweise die 
Nummer 65 und B die Nummer 66. Mit der 
Funktion CHR$ können Sie diese Nummer 


ın das Zeichen verwandeln. 
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Beispiel: PRINT CHR$ (65) bringt auf 
den Bildschirm das Zeichen A. Mit der An- 
weisung LET X$ = CHR$ (65) weisen Sie X$ 
das Zeichen ”A” zu. 





CLOSE — machen Sie dicht 


Mit CLOSE können Sıe geöffnete Files 
wieder schließen. Erst dann sind sie richtig 
gespeichert. Hinter CLOSE können Sıe die 
Nummer des Files angeben. 

Beispiel: CLOSE 3 schließt das vorher un- 
ter Nr. 3 geöffnete File. 


CLR — schafft Platz im Speicher 


Mit der Anweisung CLR löschen Sie ım 
Speicher alle Bereiche, in denen Werte aufbe- 
wahrt sind. Das Programm bleibt — andersals 
beı NEW — erhalten. CLR benutzt man 
dann, wenn ım Speicher nicht mehr genug 
Platz ıst. 





Beispiel: Mit der Anweisung LET A = 10 
weisen Sıe der Varıablen A den Wert 10 zu. 
Nach der Ausführung des Befehls CLR hat 
der Computer diesen Befehl wieder „ver- 
gessen”. 





CMD — Umleitung 


CMD leitet die mıt LIST oder PRINT er- 
zeugten Ausgaben auf ein anderes Gerät um 
als den Bildschirm. Sie müssen es vorher mit 
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OPEN öffnen. Hinter CMD geben Sie das 
Gerät oder File an. 

Beispiel: CMD 1 leitet die von LIST oder 
PRINT erzeugten Ausgaben auf File 1 oder 
Gerät. 





CONT — Fortsetzung 


CONT ist eine Abkürzung für 
CONTINUE, was etwa WEITER- 
MACHEN heißt. Diesen Befehl können Sie 
immer dann benutzen, wenn der Computer 
stehengeblieben ist. Das passiert zum Bei- 
spiel, wenn eine STOP-Anweisung im Pro- 
gramm steht. Befehlen Sie dann dem Compu- 
ter mitt CONT an der Stelle weiterzumachen, 
wo er die Programmausführung unterbro- 
chenhat. 


COS — der Cosinus 


Mit dieser Funktion können Sıe den Com- 
puter den Cosinus ausrechnen lassen. Das 
Argument liefern Sie in Bogengraden. 

Beispiel: Die Anweisung PRINT 
COS (0.5) bringt richug den Wert 
0.87758256 aut den Bildschirm. 


DATA — daraus können Sie lesen 


Hinter dieser Anweisung können Sıe, 
durch Komma getrennt, Ihre Daten unter- 
bringen. Das können Zahlen oder Zeichen- 
folgen ın Anführungszeichen oder auch ohne 
sein. Haben Sıe mehr Daten unterzubringen 
als in eine Zeile passen, schreiben Sie einfach 
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mehrere DATA-Anweisungen hintereinan- 
der, der Computer liest sie der Reihe nach. 

Beispiel: DATA 1, 2, 5, ”HALLO”, 9870, 
MIST 


DEF — schreiben Sie eigene Funktionen 


Auf DEF folgt FN und dann der Name ei- 
ner Variablen. Dahinter müssen Sıe in Klam- 
mern eine numerische Varıable und dann eın 
Gleichheitszeichen angeben. Auf das Gleich- 
heitszeichen folgt die eigentliche Rechnung. 


.. . für immer wieder auftauchende Probleme 





Wenn Sıe dann die Funktion aufrufen, 
wird die Rechnung für die mit dem Aufruf 
übergebene Zahl ausgeführt. 

Ein einfaches Beispiel: DEF FNA (L) = 
12*L. Mit dieser Anweisung definieren Sie ei- 
ne Funktion unter dem Namen FNA. Der 
übergebene Wert wird ın der Variablen L ge- 
speichert. Er wird dann mit 12 multipliziert 
und das Ergebnis wird zurückgegeben. 

Aufrufen können Sıe die Funktion mit 
LETA=FNA (A). A wird dann mit 12 multi- 
pliziert. Natürlich lohnt sıch das nur beikom- 
plizierten Formeln. 








DIM — Reservieren Sie Platz im 


Mit der Anweisung DIM reservieren Sie im 
Speicher Platz für numerische Felder oder für 
Felder von Zeichenfolgen. Das ganze Feld 
wird mit O oder bei Zeichenfolgen mit der lee- 
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ren Zeichenfolge ”” inıtialisiert. Sie können 
dem Feld mehrere Dimensionen mitgeben. 
Jede Gröfsenangabe ist von der nächsten 
durch ein Komma getrennt. 

Beispiel: Die Anweisung 
DIM A (10, 10, 10) reserviert Platz für ein 
dreidimensionales Feld mit dem Namen A. 
Insgesamt passen 1000 Werte ın dieses Feld. 
Genauso können Sie Felder für Zeichenfol- 
genreservieren. 


END — setzen Sie dem Programm ein Ende 


Stößßt der Computer bei Ausführung des 
Programms auf die Anweisung END, macht 
er Feierabend, so als hätte er die letzte Zeile 
des Programms ausgeführt. 


EXP — rechnen Sie logarıthmisch 


Das Gegenstück zu EXP ıst die Funktion 
LN. Mit diesen beiden Funktionen können 
Sie logarıthmisch rechnen. 

Beispiel: Geben Sie der Funktion EXP das 
Argument 1, also EXP (1), so erhalten Sie die 
Basıs der natürlichen Logarıthmen e mit dem 
Wert 2.712818828.... 


FOR — bitte wiederholen Sie 


Die Schlüsselworte FOR, TO, STEP und 
NEXT gehören eigentlich zusammen. Sıe bil- 
den eine Einheit und stellen zusammen eine 
der wichtigsten Befehlsstrukturen von Basic 
dar. 

Mit diesen Schlüsselworten können Sie 
den Computer anweisen, eine Anzahl von 
Befehlen mehrfach zu wiederholen 
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Diese Wiederholungsanweisung beginnt 
immer mit dem Schlüsselwort FOR. Es folgt 
eine Varıable, die festhält, in welchem Durch- 
lauf sich die Wiederholung befindet. Dieser 
Variablen gibt man mit einem Gleichheitszei- 
chen einen Anfangswert. Dann kommt das 
Schlüsselwort TO und danach der Endwert 
für die Wiederholung. 

Beispiel: FORI=1 TO 10. Die Anwei- 
sung beginnt mit FOR, die Variable heißt I 
und erhält den Anfangswert 1. Nach dem 
Schlüsselwort TO kommt der Endwert 10. 


... was soll ich wiederholen? 


Damit ıst die Anweisung für die Wieder- 
holung aber noch nicht komplett. Es folgen 
jetzt die Befehle, die wiederholt werden sol- 
len. Nach diesen Befehlen kommt zum Ab- 
schluß die Anweisung NEXT, gefolgt von der 
Variablen, die inder FOR- Anweisung festge- 
legt wurde. In unserem Beispiel ıst das I, die 
Anweisung heißt also NEXT 1. 

Der Programmablauf ıst dann so: Zuerst 
bekommt Iden Wert 1. Dann werden alle An- 
weisungen bis zu NEXT I ausgeführt. Da 
bekommt Iden Wert 2 und die Anweisungen 
nach dem FOR werden wieder ausgeführt, 
bis zum NEXT I. Dort erhält I den Wert 3 
und so geht das weiter, bis leinen Wert erhält, 
der größer ıst als der Endwert, der in unserem 
Fall ja 10 ıst. 

Wenn l also den Wert 11 erhält, bricht der 
Computer die Wiederholung ab und führt 
das Programm mit der nächsten Anweisung 


nach NEXT I weiter aus. 
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In unserem Beispiel wird der Wert von I 
beı der Anweisung NEXT I immer um 1 
größer. Das kann man mit dem Schlüsselwort 
STEP ändern, das einfach noch hinter den 
Endwert gesetzt wird. STEP heißt Schritt- 
weite. Hinter STEP können Sıe dann die Zahl 
angeben, die jeweils bei der Anweisung 
NEXT Izur Variablen I addiert werden soll. 
Komplett hätte unser Beispiel also heißen 


müssenFORI=1TO 10 STEP 1. 


... steppen Sie einen Schritt weiter 


Wenn hinter STEP aber eine 1 steht kann 
man STEP und die 1 auch einfach weglassen. 

Wiederholungen mit FOR nennt man üb- 
rigens auch Schleife. Die Variable kann natür- 
lich auch anders heißen als I, und der An- 
fangswertmuß auch nichtimmer 1 sein. 





FRE — wieviel Platz ist eigentlich noch da? 


Damit können Sıe den restlichen Platz ım 
Speicher abfragen. Hinter FRE müssen Sıe ın 
Klammern eine beliebige Zahl angeben. 

Beispiel: PRINT FRE (0) gibt auf dem 
Bildschirm die Anzahl noch freier Speicher- 
plätze (Bytes) aus. 


GET — Abhorchen der Tastatur 


| Mit dem Befehl GET können Sie die Tasta- 
tur abhorchen. Wenn Sie keine Taste gedrückt 
haben, liefert GET als Ergebnis die leere Zeı- 
chentolge ”” oder den Wert 0. Haben 
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Sıe aber eine Taste gedrückt, erhalten Sie als 
Ergebnis das Zeichen der Taste. Haben Sie al- 
so etwa die Taste A gedrückt liefert GET als 
Ergebnis ”A”. GET wartet nicht wie INPUT 
En: einen Tastendruck. Wenn Sıe gerade keine 
Taste gedrückt haben, Pech. Da müssen Sie 
selbst ın Ihrem Programm für das Warten sor- 
gen. 

Beispiel: GET A$ liefert so lange in A$ die 
leere Zeichenfolge ”” bis Sie eine Taste drük- 
ken. Dann steht das Zeichen auf der Taste in 
A$. Nach diesem Befehl müssen Sie also im- 
mer den Inhalt von A$ prüfen. Wenn nichts 
drin steht, wurde keine Taste gedrückt. 





... beianderen Leuten Zeichen einkaufen 





Den Befehl gibt es auch mit einem nachfol- 
genden Nummernzeichen (#). Er bezieht 
sich dann auf ein Gerät, mit dem über OPEN 
eine Verbindung hergestellt wurde. Hinter 
dem Nummernzeichen folgt die Nummer des 
Gerätesund dann -durch Kommagetrennt— 
die einzulesende Variable. 

Beispiel: GET #1, X$ fordert von dem un- 
ter der Nummer 1 verbundenen Gerät ein 
Zeichen an. 





GOSUB — Sprung 


Eng zusammen gehören die Befehle GO- 
SUB und RETURN. Beide sollten Sie sich 
gut merken, denn mit diesen Befehlen kön- 
nen Sıe gut strukturierte Programme schrei- 
ben. 
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Aus anderen Programmiersprachen kennt 
man sogenannte Unterprogramme. 50 was 
Ähnliches ist in Basic mıt GOSUB und RE- 
TURN möglich. 

Benutzt werden diese Befehle besonders 
dann, wenn man Teile eines Programms ım- 
mer wieder ausführen will. 


. .. Mehrfachnutzung möglich 


Diese Anweisungen schreibt man dann 
hintereinander und als letzte fügt man eın 
RETURN hinzu. Eine solche Anweisungs- 
folge kann man jetzt von jeder beliebigen 
Stelle des Programms aus aufrufen. Man be- 
nutzt dazu den Befehl GOSUB und gibt die 
erste Zeilennummer der Anweisungstfolge an. 

Der Computer führt jetzt diese Anwei- 
sungen aus, bis er auf RETURN rrifft. Das 
heißt ZURÜCK. Er springt dann zurück auf 
die Anweisung die auf die GOSUB-Anwei- 
sung folgt. 

Natürlich kann man die Anweisungstolge 
von verschiedenen Stellen des Programms aus 
aufrufen. Der Computer kehrt dann beim 
RETURN selbstverständlich auch an ver- 


schiedene Stellen zurück. 











‚.. Nummernsalat heißt dieses Spiel 





Beispiel: Nehmen wır an, die Anweisungs- 
folge beginnt bei der Anweisung mit der 
Nummer 1000. Das zugehörige RETURN 
hat die Nummer 1010. Wenn man jetzt unter 
Nummer 20 die Anweisung GOSUB 1000 
schreibt, führt der Computer die Anweisun- 
gen von 1000 bis 1010 aus und springt dann 
auf die nächste Anweisung nach Nummer 20. 
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Steht dann beispielsweise unter Nummer 100 
noch einmal GOSUB 1000, führt er wieder 
die Anweisungen von 1000 bis 1010 aus und 
springt dann auf die nächste Anweisung nach 
100. 





GOTO — Änderung 


Normalerweise führt der Computer die 
Befehle eines Basic-Programms in der Rei- 
hentolge ıhrer Zeilennummern aus. Diese 
Reihenfolge kann man aber mitdem GOTO- 
Befehl ändern. Hinter dem GOTO kann man 
die Zeilennummer des Befehls angeben, der 
als nächster ausgeführt werden soll. Der 
Computer springt dann zu diesem Befehl, 
und dann geht alles wieder seinen gewohnten 


Gang. 





. gehen Sie sofort dorthin 


GOTO kann man einmal benutzen, um 
den Computer unwiderruflich zu einer be- 
sıımmten Anweisung zu schicken. Häufig 
verwendet man GOTO aber auch in einer IF- 
Anweisung. Der Sprung ıst dann an eine Be- 
dingung geknüpft. 

Beispiel: GOTO 1000 befiehlt dem Com- 
puter, als nächstes die Anweisung mit der 
Nummer 1000 auszuführen. 





IF — wenn das Wörtchen wenn nicht wär’ 





Mit dem Befehl IF stellen Sie dem Compu- 
ter eine Bedingung. Zu IF gehört das Schlüs- 
selwort THEN. Damit sagen Sie dem Com- 
puter, was er tun soll, wenn die Bedingung er- 
füllt ıst. IF und THEN gehören also immer 


zusammen. 
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Beispiel: Die AnweisungIFA=B THEN 
PRINT A, wird immer dann den Wert von A 
auf den Bildschirm bringen, wenn der Wert 
von A gleich dem Wert von B ist. Die Bedin- 
gung, die auf das Schlüsselwort IF folgt, ıst al- 
so A=B. Wenn diese Bedingung erfüllt ist, 
soll der Computer das tun, was auf das 
Schlüsselwort THEN folgt, nämlich PRINT 
A. Ist die Bedingung aber nicht erfüllt, soll er 
PRINT A vergessen und gleich die folgende 


Anweisung ausführen. 


INPUT — Eingaben erbeten 


Der Befehl INPUT fordert eine Eingabe 
von der Tastatur an. Die Programmausfüh- 
rung wird so lange unterbrochen, bis der ge- 
forderte Wert eingegeben ist. Als Eingabe 
können Sie he Werte oder Zehen 
folgen anfordern, je nachdem, was für eine 
Variable Sie hinter INPUT angeben. 

Beispiel: INPUT A fordert einen numeri- 
schen Wert an, der nach der Eingabe in A ge- 
speichert ıst. INPUT A$ fordert eine Zeı- 
chenfolge an, die nach der Eingabe über die 
Variable A$ verfügbar st. 


... darf ich Sie auffordern? 


Zusätzlich können Sie in der INPUT-An- 
weisung auch eine Aufforderung oder einen 
anderen Text unterbringen, der auf dem Bild- 
schirm erscheint. Dazu geben Sıe den Text ın 
Anführungszeichen unmittelbar hinter IN- 
PUT an. Darauf folgt ein Semikolon und 
danach geht es normal weiter. 


Beispiel: INPUT "BITTE GEBEN SIE 
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JETZTIHRALTEREIN”; A. AufdemBild- 
schirm erscheint dann der Text als Aufforde- 
rung für die Fingabe. Anschließend erhält die 
Varıable A den Wert, den Sıe über die Tastatur 
eingeben. 





...auf die Nummer kommtesan 


Den Befehl INPUT gibt es auch mit einem 
nachfolgenden Nummernzeichen (#). Er be- 
zieht sich dann auf ein Gerät, mit dem über 
OPEN eine Verbindung hergestellt wurde. 
Hinter dem Nummernzeichen folgt die 
Nummer des Gerätes und dann —durch eın 
Komma getrennt— die einzulesenden Varia- 
blen. 

Beispiel: INPUT #1, X$ fordert von dem 
unter der Nummer 1 verbundenen Gerät eine 
Zeichenfolge an. Natürlich können Sie keinen 
Auftorderungstext angeben. 





INT — einfach abgeschnitten 


Die Funktion schneidet bei einer Komma- 
zahl einfach alles ab, was hinter dem Komma 
steht. 

Beispiel: PRINT INT(3.234215) bringt 
auf den Bildschirm einfach eine 3. Genauso 
die Anweisung PRINT INT(3). PRINT 
INT(A) bringt beispielsweise eine 0 auf den 
Bildschirm, wenn A den Wert 0.087639 hat. 


LEN — die Anzahl der Zeichen 


Oft ist es wichtig, wieviel Zeichen ın einer 
Zeichenfolge (string) sınd. Diesen Wertliefert 
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die Funktion LEN. Als Argument bekommt 
LEN die Zeichenkette mit. 

Beispiel: PRINT LEN ("Alle meine Ent- 
chen”) liefert 18. PRINTLEN (A$) liefert die 
aktuelle Länge der unter A$ gespeicherten 
Zeichenfolge. Bei der leeren Zeichenfolge ”” 
liefert LEN als Ergebnis 0. 


LET — merken Sie sich das gefälligst! 





Mit der Anweisung LET weisen Sie den 
Computer an, ım Speicher Platz zu reservie- 
ren, diesem Platz einen Namen zu geben und 
sich unter diesem Namen einen Wert zu mer- 
ken. Platz können Sie für Zahlen oder für Zeı- 
chenfolgen reservieren. 


. . . Platz schaffen und ablegen 





Da sıch der Wert unter diesem Namen än- 
dern kann, spricht man auch bei dem Namen 
von einer Var iablen; der Wert ist eben varia- 
bel. 

Beispiel: Die Anweisung LETA =5 reser- 
viert Speicher für eine Zahl, gibt dem Spei- 
cher den Namen A (A ıst die Varıable) und 
legt den Wert 5 unter dem Namen A ab. A hat 
fortan immer den Wert 5, falls Sie den Wert 
nıchtändern, CLR oder NEW benutzen oder 


den Computer ausschalten. 


...für Zahlen und Buchstaben 


Genauso funktioniert's mit Zeichenfolgen. 
Variable, die Zeichenfolgen aufnehmen kön- 
nen, sind immer durch das $-Zeichen gekenn- 
zeichnet. Für eine Zeichenfolge hieße die An- 


108 


BASIC zum Nachschlagen 








weısung also: LET A$ = ”Alle meine Ent- 
chen”. A$ steht also fortan für ”Alle meine 


Entchen”. 
LEFT$ — bitte den linken Teil 


Damit können Sıe sich den Anfang einer 
Zeichenfolge holen. Hinter LEFT'$ geben Sie 
ın Klammern an, von welcher Zeichenfolge 
Sıe den Anfang wollen und —-durch Komma 
getrennt— wieviel Zeichen Sie wollen. 

Beispiel: LEFT$ (”ABCDEFG”, 3) liefert 
die Zeichenfolge ’”ABC”. 








LIST — Zeig her Dein Programm 


Wenn Sıe eın Programm eingetippt haben, 
können Sie dem Computer mit LIST den Be- 
fehl geben, das Programm auf dem Bild- 
schirm zu zeigen. Hinter LIST können Sie 
noch die Nummer der Anweisung angeben, 
beider der Computer beginnen soll. Wenn Sie 
keine Nummer angeben, beginnt der Com- 
puter mit der ersten Anweisung des Pro- 


gramms. 
... ganz oder im Ausschnitt 


Aufserdem können Sie sich Ausschnitte 
des Programms auf den Bildschirm ausgeben 
lassen. Sie geben dazu das „Von“ und das 
„Bis“ — verbunden mit einem Bindestrich — 
an. 

Beispiel: LIST 50 bringt das Programm ab 
Zeile 50 auf den Bildschirm. LIST 50—100 
bringt alle Zeilen zwischen 50 und 100. LIST 
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bringt das ganze Programm und LIST 200 
zeigt Ihnen das Programm ab Zeile 200. 





LOAD — Laden Sie ein Programm 


LOAD ist das Gegenstück zum Befehl 
SAVE. Damit können Sie ein Programm, daß 
Sie vorher mit SAVE auf die Kassette oder die 
Diskette gespeichert haben, wieder ın den 
Computer laden. Hinter LOAD können Sıe 
den Namen des Programms angeben, den Sıe 
ihm beim Speichern mitgegeben haben. Der 
Name steht in Anführungszeichen. Wenn Sıe 
die Anführungszeichen weglassen, lädt der 
Computer einfach das nächste Programm, 
daß er auf der Kassette oder Diskette findet. 
Angehängt mit einem Komma können sie die 
Gerätenummer angeben. Kassette (1) ıst vor- 
eingestellt und kann weggelassen werden. 

Beispiel: LOAD "SPIRALE? lädt das Pro- 
gramm von der Kassette, das sie vorher unter 
dem Namen ”SPIRALE” gespeichert haben. 
Der Befehl LOAD lädt das nächste Pro- 


gramm von der Kassette. 





LOG — für Logarithmiker 





LOG ist das Gegenstück zu EXP. Wenn Sıc 
also logarıthmisch rechnen wollen, Basıc bie- 
tet dazu die Möglichkeit. 


MID$ — bitte ein Stück aus der Mitte 


Damit können Sie sich ein Stück aus der 
Mitte einer Zeichenfolge holen. Hinter MID$ 
geben Sie in Klammern an, von welcher Zei- 
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chenfolge Sıe das Stück wollen und —durch 
Komma getrennt— wo Ihr Stück anfangen 
soll und wieviel Zeichen Sie wollen. 

Beispiel: MID$ ("ABCDEFG”, 2, 3) lie- 
fert die Zeichenfolge ”BCD”. 


NEW — alles neu macht der... 


Der Befehl NEW hat die gleiche Wirkung 
wie das Aus- und Einschalten des Gerätes. 
Das Programm und alle gespeicherten Werte 
werden gelöscht. Vorsicht!! 


NEXT — das Ende einer Schleife 


Das Schlüsselwort NEXT gehört zur Wie- 
derholung, die mit FOR beginnt. Unter FOR 
ist die Wiederholung (Schleife) ausführlich 
erklärt. 





NOT — so geht es aber nicht 


Logischer Operator ”NICHT”. Benutzt 
wird er hauptsächlich ın IF-Anweisungen. 
Damit wird die Bedingung umgekehrt. 





ON — wohin geht die Reise? 


Mit ON können Sie abhängig von einem 
Wert zu einer bestimmten Stelle des Pro- 
gramms springen, ohne ganz viele IF-Anwei- 
sungen zu benutzen. Auf ON folgt ein Wert 
oder eine Formel. Dann GOTO oder GO- 
SUB. Schließlich folgen -durch Komma ge- 


trennt— dıe Nummern von Anweisungen, zu 
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denen man möglicherweise springen will. 
Wenn der Wert oder das Ergebnis der Formel 
1 ıst, springt das Programm zur ersten ange- 
gebenen Anweisungsnummer, bei 2 zur 
zweiten usw. 

Kommt kein passendes Ergebnis, wird 
einfach die nächste Anweisung nach ON aus- 
geführt. 

Beispiel: ON A GOTO 100, 200, 300 be- 
wirkt einen Sprung zu Zeile 100, wenn A=1 
ist, zu 200 beı A = 2 und zu 300 beı A = 3. In 
allen anderen Fällen führt der Computer die 
Anweisung nach der ON-Anweisung aus. 


OPEN — Sesam, öffne dich 


Wenn Sıe irgendwas auf den Drucker, die 
Kassette oder die Diskette schreiben wollen, 
benutzen Sie den Befehl OPEN, um eine Ver- 
bindung zu schaffen. Hinter OPEN geben 
Sıe eine Zahl an, unter der Sıe ın Zukunft das 
Gerät ansprechen wollen. Dann folgt die 
Nummer für das ausgesuchte Gerät, etwa ei- 
ne 1 für Kassette oder 4 für den Drucker. 

Beispiel: OPEN 1, 4 macht Ihnen den 
Drucker künftig unter der Nummer 1 verfüg- 
bar, bıs Sıe die Verbindung mit CLOSE un- 


terbrechen. 


OR — das logische Oder 


Die wichtigste Aufgabe erledigt das 
Schlüsselwort OR ın der IF-Anweisung. Da 
stellen Sie Jjadem Computer eine Bedingung. 
Wenn die Bedingung erfüllt ıst, dann tue das 
und das. Nun kann es aber auch notwendig 
sein, die Ausführung einer Anweisung an 
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mehrere Bedingungen zu knüpfen. Sie soll 
nur dann ausgeführt werden, wenn eine von 
mehreren io erfüllt ist. Dafür gibt 
es das Schlüsselwort OR. 

Beispiel: IF A=10 OR A=15 THEN 
PRINT A. Bei dieser Anweisung bekommen 
Sıe den Wert von A nur auf den Bildschirm, 
wenn er entweder 10 oder 15 ist. Der Befehl 
PRINT A wird also nur dann ausgeführt. 





Normalerweise müssen Sie sich nicht dar- 
um kümmern, wo der Computer etwas im 
Speicher unterbringt. Wenn Sıe aber mal eine 
ganz bestimmte Stelle im Speicher lesen wol- 
len, können Sie das mit PEEK. Dieses Lesen 
ım Speicher hat natürlich nur Sinn, wenn Sie 
wissen, was sich der Computer an dieser Stel- 
le gerade merkt. 

Beispiel: PRINT PEEK (100) liefert Ihnen 
den Inhalt der Speicherzelle 100. 





Wenn Sıe direkteinen Wert im Speicher un- 
terbringen wollen, können Sie das mit dem 
Befehl POKE. Er ist das Gegenstück zu 
PEEK. Sıe sollten diesen Befehl nur sehr vor- 
sichtig benutzen und sich genau überlegen, 
wo Sıe ein Zeichen ım Speicher unterbringen 
wollen. Außerdem sollten Sie immer dafür 
sorgen, daß das Basic dadurch nicht „gestört“ 
wird. Denn sonst passieren auf einmal ganz 
merkwürdige Sachen. 

Meist benutzt man den POKE-Befehl um 
Maschinenprogramme im Speicher unterzu- 
bringen. 
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Doch das ist eine Aufgabe für Spezialisten. 

Ansprechen können Sie mit dem Befehl 
POKE die Speicherzellen 0 bis 65535 (64 k), 
sofern Ihr Computer über so viel Speicher 
verfügt. 


‚.. viel Platz ist da nicht 





In jeder Speicherzelle können Sıe einen 
Wert zwischen O und 255 unterbringen. Mehr 
paßt da nicht rein. Zuerst müssen Sie die 
Nummer der Speicherzelle angeben und 
dann, durch Komma getrennt, den Wert, den 
Sie speichern wollen. 

Beispiel: POKE 1000, 115 legt ın der Spei- 
cherzelle 1000 den Wert 115 ab. 


POS — welche Zeile wollen Sie? 


Mit POS können Sie erfahren, ın welcher 
Zeile die nächsten PRINT-Anweıisung ausge- 
führt wird. Sie müssen POS in Klammern eıne 
Zahl mitgeben, deren Wert jedoch ohne Be- 
deutung ıst. 


PRINT — so schreibt der Computer 


PRINT heißt soviel wie DRUCKE. Nun 
kann man zwar auf dem Bildschirm nıcht 
drucken, aber als die Sprache Basic entwickelt 
wurde, arbeitete man noch nicht mit Bild- 
schirmen, sondern ausschließlich mit Druk- 
kern. 

Heute geben Sie in einer PRINT-Anweı- 
sung dem Computer an, was er auf den Bild- 
schirm schreiben soll. 
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Angeben können Sie Zahlen und Zeichen- 
folgen, sowohl direkt als auch ın Form von 
Variablen. 

Beispiel: PRINT A$ bringt auf den Bild- 
schirm die unter A$ gespeicherte Zeichenfol- 
ge. PRINT A bringt den unter A gespeicher- 
ten Wert auf den Bildschirm. Und PRINT 
”Alle meine Entchen” bringt alles auf den 
Bildschirm, was zwischen den Anführungs- 
zeichen steht. 





In der PRINT-Anweisung können Sie 
auch Rechenaufgaben lösen oder Funktionen 
benutzen. 

Beispiel: PRINT 745 bringt auf den Bild- 
schirm das Ergebnis dieser Aufgabe, nämlich 
12. PRINTRND (0) liefert Ihnen die nächste 
Zufallszahl. 

Die Stelle auf dem Bildschirm, wo die Wer- 
te erscheinen sollen, können Sie mit den 
Schlüsselworten POS, SPC und TAB bestim- 


men. Alle drei sind separat erklärt. 





Wichtig sind in der PRINT-Anweisung 
noch Komma und Semikolon. Denn Sie kön- 
nen auch mehrere Werte ın einer PRINT-An- 
weisung angeben. Diese Werte müssen dann 
durch Komma oder Semikolon voneinander 
getrennt sein. Benutzen Sıe das Komma, läßt 
der Computer automatisch Platz hinter je- 
dem Wert. Benutzen Sıe das Semikolon, fol- 
gen die Werte unmittelbar aufeinander. 

Beispiel PRINT ”7+5=";7+5 bringt auf 
den Bildschirm: 7+5=12. Hätten Sıe statt des 
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Semikolons ein Komma benutzt, wäre auf 
dem Bildschirm vor der 12 viel leerer Platz. 
Komma und Semikolon haben auch am 
Ende der PRINT-Anweisung Bedeutung. 
Normalerweise beginnt der Computer mit 
jeder neuen PRINT-Anweisung eine neue 
Zeile. Das unterbinden Sie, wenn Sie an den 
Schluß ein Komma oder En Semikolon set- 
zen. Beispiel: Folgen ın einem Programm die 
beiden Anweisungen PRINT ”Alle meine”; 
und PRINT ”Entchen” aufeinander, so 





kommt der Anfang dieses Liedes ın eine Zeı- 
le, obwohl zweı PRINT-Anweisungen be- 

nutzt wurden. 

. .. schreiben auf andere Geräte 
Br! Den Befehl PRINT gibt es auch mit einem 
{ 5, nachfolgenden Nummernzeichen (#). Er be- 
=, N) zieht sıch dann auf ein Gerät, mit dem über 
\\ EN OPEN eıne Verbindung hergestellt wurde. 
NL \ u 75 N 





—— rag ' Hinter dem en folgt die 

“3° Nummer des Gerätes und dann -—durch 

| Komma getrennt— die auszugebenden Va- 
rıablen. 

Beispiel: PRINT #1,A$ liefert auf Gerät 1 

die Zeichenfolge A$ ab. TAB und SPC „ver- 


stehen“ übrigens nichtalle Geräte. 


READ -— lesen Sie von DATA 





Mit dem Befehl READ können sıe die Da- 
ten aus der DATA-Anweısung den Variablen 
zuweisen. Jede Variable ın der READ-An- 
weisung bekommt einen Wert aus der DATA- 
Anweisung. Vorsicht, die Typen müssen 
übereinstimmen. 


Beispiel: READ A,A$ liest aus der DATA- 
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Anweisung eine Zahl, die sich dann in A wie- 
derfindet und anschließend eine Zeichenfol- 
ge, die dann in A$ abgelegt wird. 


REM — kommentieren Sie heftig 


Der Befehl REM kommt von remember, 
sich erinnern. Wenn Sie ein Programm schrei- 
ben, sollten Sie den REM-Befehl häufig ge- 
brauchen und alles Erinnernswerte notieren. 
Schon wenn Sie ein Programm ein paar Tage 
nicht mehr benutzt haben, aber noch eine 
Anderung anbringen wollen, werden Sie die- 
se Art von Erinnerung zu schätzen wissen. 








. geben Sie sich eine Chance für später 





Wenn gar eın anderer Programmierer Ihr 
Programm ändern will, hat er ohne diese 
Kommentare kaum eine Chance, besonders 
wenn das Programm sehr lang ist. 

Natürlich verlieren Sie durch die REM- 
Zeilen Speicher. Doch eigentlich müßte für ei- 
nen Kommentar immer Platz sein. Nach dem 
REM können Sie die ganze Zeile vollschrei- 
ben und Sie dann abschließen. 

Beispiel: REM DIES IST EIN KOM- 
MENTAR 


RESTORE — zurück, und nochmal von vorn 


RESTORE steht in enger Verbindung mit 
DATA und READ. READ liest ja die Werte 
aus den DATA-Anweisungen, einen nach 
dem anderen. Wenn Sie aber noch einmal von 
vorn beginnen wollen, geben Sie einfach den 


Befehl RESTORE. Das Programm beginnt 
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dann von vorn mit dem ersten Wert der ersten 
DATA-Anweisung. Damit kann man Daten 
mehrfach verwenden. 


RETURN — springen Sie zurück 


Die Bedeutung von RETURN ıst unter 
GOSUB erklärt. RETURN läßt den Com- 
puter zu der Anweisung zurückspringen, die 


dem GOSUBtolgt. 


RIGHT$ — bitte den rechten Teil 


Damit können Sie sich das Ende einer Zeı- 
chenfolge holen. Hinter RIGHT$ geben Sıe 
in Klammern an, von welcher Zeichenfolge 
Sie das Ende wollen und —durch Komma ge- 
trennt— wieviel Zeichen Sie wollen. 

Beispiel: RIGHT$ ("ABCDEFG”,3) lie- 
fert die Zeichenfolge ’EFG”. 


RND — das kann doch kein Zufall sein 


Die Funktion RND liefert Ihnen Zufalls- 
zahlen zwischen OÖ und 1. Der Funktion RND 
müssen Sie eine Zahl mitgeben. Die erste Zahl 
bestimmt die Zufallszahlen. 











te ılganeilitifAnelll 


Allerdings sind es nicht wirklich zufällige 
Zahlen. Aber zumindest sind sie ziemlich 
durcheinander. Für alle weiteren Aufrufe von 
RND sollte die mitgegebene Zahl 0 oder po- 


sıtıv sein. Eine negative Zahl startet eine neue 
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Reihe von Zufallszahlen. Die müßten Sıe 
dann wieder zufällig aussuchen. 

Beispiel: PRINT RND(0) liefert Ihnen eı- 
ne Zufallszahl auf den Bildschirm. 


RUN — damit geht’s richtig los 


Mit RUN starten Sıe das Programm, das 
gerade im Speicher ist. Hınter dem Schlüssel- 
wort RUN können Sıe auch die Nummer ei- 
ner Anweisung angeben. Der Computer be- 
ginnt mit der Ausführung des Programms 
dann bei dieser Anweisung. Sonst fängt er mit 
der ersten Anweisung des Programms an. 
RUN löschtübrigens alle gespeicherten Wer- 
te, bevor das Programm startet. 


SAVE — speichern auf Kassette 


Wenn Sıe eın Programm auf der Kassette 
oder Diskette für späteren Gebrauch spei- 
chern wollen, benutzen Sıe das Kommando 


SAVE. 








... einen Namen sollten Sie immer ver 





Hinter SAVE können Sienoch den Namen 
angeben, unter dem Sie das Programm später 
wiederfinden wollen, außerdem die Nummer 
des Gerätes. Gerät 1 (Kassette) ist voreinge- 
stellt und kann weggelassen werden. 

Um das Programm wieder von der Kasset- 
te oder Diskette zu lesen, benutzen Sie das 
Kommando LOAD. 

Beispiel: SAVE ”EIMER” sichert das ım 
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Speicher befindliche Programm unter den 
Namen EIMER auf die Kassette. SAVE ”EI- 
MER”,8 speichert das Programm auf Gerät 8 
(Diskette). 


SGN — auf das Vorzeichen kommt es an 


Wenn Sıe wissen wollen, ob eine Zahl posı- 
tıv, negativ oder O ıst, benutzen Sie die Funk- 
tonSGN. Sıe liefert — 1 fürallenegativen und 
+1 für alle positiven Zahlen. Bei einer O 
kommt auch eine O zurück. 


Beispiel: PRINTSGN(— 311) liefert —1. 


SPC — schaffen Sie Platz 


Mit SPC können Sıe eine Anzahl von Leer- 
zeichen ın der PRINT-Anweisung angeben. 
Hinter SPC geben Sıe in Klammern die An- 
zahl der Zeichen an. Diese Zeichen werden 
dann einfach übersprungen. 

Beispiel: PRINT” A BETSPERDYTDERF? 
setzt auf dem Bildschirm einen Leerraum von 


20 Zeichen zwischen ”ABC” und ”DEF’. 


SIN — liefert den Sinus 


Wenn Sie den Sinus einer Zahl kennenler- 
nen wollen, hilft Ihnen die Funktion SIN. Ge- 
ben Sıe ıhr einfach dıe Zahl als Argument. 


SOR — das Übel an der Wurzel packen 


Die Funktion SQR bietet Ihnen die Qua- 


dratwurzel. 
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Beispiel: PRINT SQR (64) liefert 8 und 
PRINT SQOR (16) gibt natürlich 4. 





sroß sind Ihre Schritte? 





STEP gehört zur Wiederholung, die mit 
FOR beginnt. Dort ist STEP ausführlich be- 


schrieben. 





STOP — stehenbleiben, oder... 


Trifft der Computer auf diesen Befehl, un- 
terbricht er die Ausführung des Programms. 
Wenn Sıe ıhn weiterarbeiten lassen wollen, 
benutzen Sie die Anweisung CONT. Der 
Computer nennt Ihnen auch die Zeile, in der 


er den Befehl gefunden hat. 


EREETTWZUIEIRWASTA TS ee 


Mit der Funktion STR$ können Sie eine 
Zahl ın eine Zeichenkette umwandeln. 

Beispiel: Wenn A den Wert 789 hat, kön- 
nen Sie mit LETA$=STR$ (A) die Zeichen- 
folge ”789” A$ zuweisen. 


SYS — Unterprogramme im S 





Mit SYS können Sie Unterprogramme aufru- 
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fen, die im Speicher abgelegt sind. Die Pro- 
gramme müssen ın Maschinensprache ge- 
schrieben seın. 


en Sie Positionen fest 





TAB — leg 


TAB können Sie ın der PRIN’TT-Anweı- 
sung verwenden. Sie geben damit die Spalte 
an, ın die das nächste Zeichen kommen soll. 

Beispiel: PRINT TAB 10; "HALLO läßt 
das WortHALLO in Spalte 10 beginnen. 


TAN — liefert den Tangens 


Mit dem Tangens sind die Kreisfunktionen 
komplett. TAN funktioniert wie alle anderen 
Kreisfunktionen auch. 


THEN — nur wenn die Bedingungen stimmen 


Das Schlüsselwort THEN gehört zur IF- 
Anweisung und ist auch da erklärt. Hinter 
THEN geben Sie an, was passieren soll, wenn 
die Bedingungen hinter IF erfüllt sind. 





TO — bis dahin geht die Wiederholung 


Das Schlüsselwort TO gehört zur FOR- 
Anweisung und ist auch daerklärt. Hinter TO 


| 3} Dal 
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geben Sıe die obere Grenze für eine Wieder- 
holung an. 


VAL — Zahl aus der Zeichenfolge 


Wenn Sıe eine Zahl als Zeichenfolge ange- 
ben, liefert Ihnen VAL den korrekten Wert. 

Beispiel: PRINT VAL (”723”) liefert die 
Zahl 723. 





VERIFY — wie eine Versicherung 


Wenn Sıe eın Band auf Kassette oder Dis- 
kette gesichert haben, wollen Sie ja immer 
ganz sıcher sein, daß es auchrichtigangekom- 
men ist. Die Überprüfung erledigt VERIFY 
für Sie. Der Computer vergleicht dann das 
Programm ım Speicher mit dem auf der Kas- 
sette oder der Diskette. 

Geben Sie einfach nur VERIFY an, so 
sucht sıch der Computer das nächste Pro- 
gramm auf der Kassette. Sie können aber auch 
einen Namen mitliefern. Dann sucht der 
Computer zuerst das Programm. 

Beispiel: VERIFY ”FRITZ” sucht das un- 
ter ”FRITZ” gespeicherte Programm und 
vergleicht es mit dem Programm ım Speicher. 





WAIT — Lassen Sie den Computer warten 


Mit dem Befehl WAIT können Sie ein Pro- 
gramm so lange warten lassen, bis eine be- 
stımmte Speicherzelle einen bestimmten 
Wert angenommen hat. 
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Die neue Mikro- und 
Home-Computer-Reihe [ Nußknacker 
„Nußknacker“! GEBE 


Wir knacken Ihre Programmnüsse! 
Gut dokumentierte Programme, 


die wirklich funktionieren. Bücher 


Die ersten 5 Bände: 


Neue Spiele und Programme zu ZX81 und Spectrum 


Hrsg. Steffi Siol. 1984.128 Seiten mit 70 Abbildungen, Format13x 21cm, 
kartoniert, ca. DM 29,80. ISBN 3-481-36311-7 

Dieses Buch liefert „jede Menge Futter“ für „Spielratten“ undHobbypro- 
grammierer, die mit dem populären ZX81 oder dem Spectrum „compu- 
tern“. 


Hilfe, Textverarbeitung mit dem Computer 

Eine heiter ernste Einführung 

Hrsg. Steffi Siol. 1984. 96 Seiten mit 40 Abbildungen, Format 13x 21cm, 
kartoniert ca. DM 28,-. ISBN 3-481-36351-6 

DieseEinführungindie Textverarbeitung entstand ausca. 300 Interviews 
mit „Büroarbeitern“, die auf Textautomaten oderComputer umgestiegen 
sind. Die wirklichen Probleme - heiter aufbereitet - bestimmen daher 
den Inhalt des Buches, nicht die Versprechungen der Hersteller und 
auch nicht die unverständlichen technischen Gebrauchsanleitungen. 


Von Computern habe ich eigentlich keine Ahnung 

Eine ungewöhnliche Einführung in die Welt der Heimcomputer 

Hrsg. Steffi Siol. 1984. 96 Seiten mit 48 Abbildungen, Format 13x 21cm, 
kartoniert ca. DM 28,-. ISBN 3-481-36341-9 

Die Autoren haben mehr als 500 Kinder, Jugendliche und Erwachsene 
interviewt. „Welche Fragen haben Sie zum Thema Heimcomputer, was 
interessiert Sie in diesem Bereich, wo wünschen Sie sich mehr Informa- 
tion?“ 


Druckerspiele und ernst Gedrucktes 

Aktuelle Nußknacker-Programme 

Hrsg. Steffi Siol. 1984. 112 Seiten mit 60 Abbildungen, Format13x21cm, 
kartoniert ca. DM 32,80. ISBN 3-481-36331-1 

Endlich sind die Ergebnisse greifbar, nicht flüchtig auf dem Bildschirm, 
nein, schwarz auf weiß oder gar bunt gedruckt auf Papier. Bilder, Texte, 
Briefe, Tabellen, Etiketten, Graphiken, Figuren und was sich sonst noch 
drucken läßt. Auchals „Spielzeug“ istderDrucker geeignet. Einige lusti- 
ge Spielprogramme in diesem Buch beweisen das. 


Neue Spiele und Programme zum Commodore 64 

Hrsg. Steffi Siol.1984.128 Seiten mit 60 Abbildungen, Format 13x 21cm, 
kartoniert ca. DM 32,80. ISBN 3-481-36321-4 

Dieses Buch liefert „jede Menge Futter“ für „Spielratten“ und Hobbypro- 
grammierer, die mit dem Commodore 64 „computern“. 


Weitere Bände in Vorbereitung. 


Verlagsgesellschaft 
Rudolf Müller GmbH 
Postfach 410949 
5000 Köln 41 
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deren Service individuelle Beratung zum Thema: 


COMMODORE 64 


Schneiden Sie diesen Gutschein aus, schreiben 
Sielhre Frage darauf, vergessen SielhrenAbsender 
nicht und schicken den Gutschein zusammen mit 
drei DM in Briefmarken an umseitige Anschrift. 


Ihre Frage: 
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Falten Sie diesen Gutschein in der Mitte. Er paßt 
dann in einen Fensterumschlag. 


—- - (Hier knicken) 


Verlag Rudolf Müller 
Nußknacker-Buchteam 
Stichwort „Frage C64“ 
Postfach 410949 


5000 Köln 41 
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Programmierer 


Wir sind ständig an neuen Programmeninteressiert. 
Senden Sie uns Ihre Programme mit vollständiger 
Dokumentation. Wir prüfen Programm, Anleitung 
und Kommentierung. Sie erhalten ein Honorar, 
wenn Ihr Programm in unserer Buchreihe veröffent- 
licht wird. 


Legen Sie diese Seite Ihrem Programm ausgefüllt 
bei. Unsere Anschrift stehtauf derRückseite dieses 
Blattes. 


Name: 








Anschrift: 





Telefon: 





Programm für Rechner: 





Hardware-Voraussetzungen: __ 








Software-Voraussetzungen: 





Honorarvorstellung: 





Falten Sie diesen Gutschein in der Mitte. Er paßt 
dann in einen Fensterumschlag. 





- = (Hier kKnicken) = = u u nn nn nn nn nn  -  -  -  - -o 


Verlag Rudolf Müller 
Nußknacker-Buchteam 
Stichwort „Programm“ 
Postfach 410949 


5000 Köln 41 











Wir knacken Ihre Programmnüsse! 
Gut dokumentierte Programme, 
die wirklich funktionieren 


Aus dem Inhalt 


Dieses Buch liefert „jede Menge 
Futter” für „Spielratten’ und 
Hobbyprogrammiierer, die mit 
dem Commodore 64 „computern’'. 
Die Programmierung bleibt kein 
Buch mit sieben Siegeln. Viele 
Anregungen und Hinweise auf 
mögliche Erweiterungen der Pro- 
gramme fordern eigene Phantasie 
und Programmierkünste und 
natürlich „klappt’’ alles richtig 
Eingetippte. 





